home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Periodicals / develop / develop Issues 1-10 / develop Index < prev    next >
MacBinary  |  1993-01-18  |  458.0 KB  |  [STAK/WILD]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert HyperCard Stack (archive/hypercard) idMeta Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
100% file MacBinary II, inited, Wed Aug 29 13:00:30 1990, modified Mon Jan 18 13:15:23 1993, creator HyperCard, type HyperCard stack, 303104 bytes "develop Index" , at 0x4a080 165758 bytes resource default (weak)
99% file data default
74% TrID Mac HyperCard stack (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% lsar MacBinary default


id metadata
keyvalue
macFileType[STAK]
macFileCreator[WILD]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 64 65 76 65 6c 6f | 70 20 49 6e 64 65 78 00 |..develo|p Index.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 04 a0 00 00 | 02 87 7e a3 01 a5 2e a7 |........|..~.....|
|00000060| 80 a4 3b 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |..;.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 83 65 00 00 |........|.....e..|
|00000080| 00 00 70 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..p.STAK|........|
|00000090| 00 00 00 0a 00 04 a0 00 | 00 00 70 00 00 00 00 00 |........|..p.....|
|000000a0| 00 00 00 00 00 00 00 02 | 00 00 17 fa 00 00 00 1b |........|........|
|000000b0| 00 00 09 18 00 00 0b cf | 00 00 00 02 00 00 9b 80 |........|........|
|000000c0| 00 00 0a 4a 00 00 00 00 | 00 05 00 00 90 00 00 00 |...J....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 01 25 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |.%......|........|
|000000f0| 5c c8 73 5e 00 00 00 00 | 00 26 00 00 01 da 02 80 |\.s^....|.&......|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 16 d6 00 00 0e 08 | 03 40 02 80 00 00 00 00 |........|.@......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 82 80 00 00 49 00 | 00 04 4d 60 00 00 52 80 |......I.|..M`..R.|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 45 6c 65 63 74 72 6f 6e | 69 63 20 64 65 76 65 6c |Electron|ic devel|
|00000690| 6f 70 0d 41 70 70 6c 65 | 20 43 6f 6d 70 75 74 65 |op.Apple| Compute|
|000006a0| 72 3a 20 45 6c 65 63 74 | 72 6f 6e 69 63 20 4d 65 |r: Elect|ronic Me|
|000006b0| 64 69 61 20 47 72 6f 75 | 70 0d 0d 54 48 49 53 20 |dia Grou|p..THIS |
|000006c0| 53 54 41 43 4b 20 53 43 | 52 49 50 54 20 43 4f 4e |STACK SC|RIPT CON|
|000006d0| 54 41 49 4e 53 20 53 43 | 52 49 50 54 20 52 45 53 |TAINS SC|RIPT RES|
|000006e0| 4f 55 52 43 45 53 20 43 | 4f 4d 4d 4f 4e 20 54 4f |OURCES C|OMMON TO|
|000006f0| 20 41 4c 4c 20 44 45 56 | 45 4c 4f 50 20 53 54 41 | ALL DEV|ELOP STA|
|00000700| 43 4b 53 0d 0d 6f 6e 20 | 6f 70 65 6e 53 74 61 63 |CKS..on |openStac|
|00000710| 6b 0d 67 6c 6f 62 61 6c | 20 44 50 62 65 65 6e 48 |k.global| DPbeenH|
|00000720| 65 72 65 2c 44 50 6c 61 | 73 74 46 69 6e 64 0d 69 |ere,DPla|stFind.i|
|00000730| 66 20 77 6f 72 64 20 31 | 20 6f 66 20 74 68 65 20 |f word 1| of the |
|00000740| 73 68 6f 72 74 20 6e 61 | 6d 65 20 6f 66 20 74 68 |short na|me of th|
|00000750| 69 73 20 73 74 61 63 6b | 20 3d 20 22 64 65 76 65 |is stack| = "deve|
|00000760| 6c 6f 70 22 20 74 68 65 | 6e 20 2d 2d 20 46 4f 52 |lop" the|n -- FOR|
|00000770| 20 57 48 45 4e 20 54 48 | 49 53 20 53 43 52 49 50 | WHEN TH|IS SCRIP|
|00000780| 54 20 49 53 20 49 4e 20 | 55 53 45 0d 70 75 74 20 |T IS IN |USE.put |
|00000790| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |the numb|er of th|
|000007a0| 69 73 20 63 64 20 2a 20 | 31 30 30 30 30 30 20 69 |is cd * |100000 i|
|000007b0| 6e 74 6f 20 69 74 65 6d | 20 31 20 6f 66 20 44 50 |nto item| 1 of DP|
|000007c0| 6c 61 73 74 46 69 6e 64 | 0d 73 65 74 20 63 75 72 |lastFind|.set cur|
|000007d0| 73 6f 72 20 74 6f 20 77 | 61 74 63 68 0d 68 69 64 |sor to w|atch.hid|
|000007e0| 65 20 73 63 72 6f 6c 6c | 20 77 69 6e 64 6f 77 0d |e scroll| window.|
|000007f0| 69 66 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |if the n|ame of t|
|00000800| 68 69 73 20 73 74 61 63 | 6b 20 69 73 20 6e 6f 74 |his stac|k is not|
|00000810| 20 69 6e 20 44 50 62 65 | 65 6e 48 65 72 65 20 74 | in DPbe|enHere t|
|00000820| 68 65 6e 20 6a 75 73 74 | 4f 6e 63 65 0d 62 75 69 |hen just|Once.bui|
|00000830| 6c 64 4d 65 6e 75 73 0d | 73 65 74 20 63 61 6e 74 |ldMenus.|set cant|
|00000840| 6d 6f 64 69 66 79 20 6f | 66 20 74 68 69 73 20 73 |modify o|f this s|
|00000850| 74 61 63 6b 20 74 6f 20 | 28 74 68 65 20 6f 70 74 |tack to |(the opt|
|00000860| 69 6f 6e 6b 65 79 20 69 | 73 20 75 70 29 0d 73 65 |ionkey i|s up).se|
|00000870| 74 20 75 73 65 72 6d 6f | 64 69 66 79 20 74 6f 20 |t usermo|dify to |
|00000880| 74 72 75 65 0d 73 65 6e | 64 20 75 70 64 61 74 65 |true.sen|d update|
|00000890| 57 69 6e 64 6f 77 73 20 | 74 6f 20 74 68 69 73 20 |Windows |to this |
|000008a0| 63 64 0d 73 65 6e 64 20 | 6c 6f 63 61 6c 4f 70 65 |cd.send |localOpe|
|000008b0| 6e 53 74 61 63 6b 20 74 | 6f 20 74 68 69 73 20 63 |nStack t|o this c|
|000008c0| 64 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 6f 70 65 |d.end if|.end ope|
|000008d0| 6e 73 74 61 63 6b 0d 0d | 6f 6e 20 6c 6f 63 61 6c |nstack..|on local|
|000008e0| 4f 70 65 6e 53 74 61 63 | 6b 20 2d 2d 54 52 41 50 |OpenStac|k --TRAP|
|000008f0| 0d 65 6e 64 20 6c 6f 63 | 61 6c 4f 70 65 6e 53 74 |.end loc|alOpenSt|
|00000900| 61 63 6b 0d 0d 6f 6e 20 | 69 64 6c 65 0d 69 66 20 |ack..on |idle.if |
|00000910| 22 64 65 76 65 6c 6f 70 | 22 20 69 73 20 6e 6f 74 |"develop|" is not|
|00000920| 20 69 6e 20 74 68 65 20 | 77 69 6e 64 6f 77 73 20 | in the |windows |
|00000930| 74 68 65 6e 0d 73 74 6f | 70 20 75 73 69 6e 67 20 |then.sto|p using |
|00000940| 73 74 61 63 6b 20 22 64 | 65 76 65 6c 6f 70 20 69 |stack "d|evelop i|
|00000950| 6e 64 65 78 22 0d 72 65 | 73 65 74 20 6d 65 6e 75 |ndex".re|set menu|
|00000960| 62 61 72 0d 73 65 6e 64 | 20 22 6f 70 65 6e 73 74 |bar.send| "openst|
|00000970| 61 63 6b 22 20 74 6f 20 | 74 68 69 73 20 63 64 0d |ack" to |this cd.|
|00000980| 65 6e 64 20 69 66 0d 70 | 61 73 73 20 69 64 6c 65 |end if.p|ass idle|
|00000990| 0d 65 6e 64 20 69 64 6c | 65 0d 0d 6f 6e 20 6a 75 |.end idl|e..on ju|
|000009a0| 73 74 4f 6e 63 65 0d 67 | 6c 6f 62 61 6c 20 44 50 |stOnce.g|lobal DP|
|000009b0| 62 65 65 6e 48 65 72 65 | 0d 70 75 74 20 74 68 65 |beenHere|.put the|
|000009c0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 73 74 | name of| this st|
|000009d0| 61 63 6b 20 26 20 72 65 | 74 75 72 6e 20 61 66 74 |ack & re|turn aft|
|000009e0| 65 72 20 44 50 62 65 65 | 6e 48 65 72 65 0d 73 65 |er DPbee|nHere.se|
|000009f0| 74 44 65 66 61 75 6c 74 | 57 69 6e 64 6f 77 0d 69 |tDefault|Window.i|
|00000a00| 66 20 74 68 65 20 6f 70 | 74 69 6f 6e 6b 65 79 20 |f the op|tionkey |
|00000a10| 69 73 20 64 6f 77 6e 20 | 74 68 65 6e 20 73 65 74 |is down |then set|
|00000a20| 20 75 73 65 72 6c 65 76 | 65 6c 20 74 6f 20 35 0d | userlev|el to 5.|
|00000a30| 65 6c 73 65 20 73 65 74 | 20 75 73 65 72 6c 65 76 |else set| userlev|
|00000a40| 65 6c 20 74 6f 20 35 0d | 73 65 74 20 74 65 78 74 |el to 5.|set text|
|00000a50| 61 72 72 6f 77 73 20 74 | 6f 20 74 72 75 65 0d 73 |arrows t|o true.s|
|00000a60| 65 74 20 62 6c 69 6e 64 | 74 79 70 69 6e 67 20 74 |et blind|typing t|
|00000a70| 6f 20 66 61 6c 73 65 0d | 73 65 74 20 70 6f 77 65 |o false.|set powe|
|00000a80| 72 6b 65 79 73 20 74 6f | 20 74 72 75 65 0d 73 65 |rkeys to| true.se|
|00000a90| 6e 64 20 6c 6f 63 61 6c | 4a 75 73 74 4f 6e 63 65 |nd local|JustOnce|
|00000aa0| 20 74 6f 20 74 68 69 73 | 20 63 64 0d 65 6e 64 20 | to this| cd.end |
|00000ab0| 6a 75 73 74 4f 6e 63 65 | 0d 0d 6f 6e 20 6c 6f 63 |justOnce|..on loc|
|00000ac0| 61 6c 4a 75 73 74 4f 6e | 63 65 20 2d 2d 54 52 41 |alJustOn|ce --TRA|
|00000ad0| 50 0d 65 6e 64 20 6c 6f | 63 61 6c 4a 75 73 74 4f |P.end lo|calJustO|
|00000ae0| 6e 63 65 0d 0d 6f 6e 20 | 72 65 73 75 6d 65 53 74 |nce..on |resumeSt|
|00000af0| 61 63 6b 0d 69 66 20 77 | 6f 72 64 20 31 20 6f 66 |ack.if w|ord 1 of|
|00000b00| 20 74 68 65 20 73 68 6f | 72 74 20 6e 61 6d 65 20 | the sho|rt name |
|00000b10| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 3d 20 |of this |stack = |
|00000b20| 22 64 65 76 65 6c 6f 70 | 22 20 74 68 65 6e 20 73 |"develop|" then s|
|00000b30| 65 6e 64 20 6f 70 65 6e | 53 74 61 63 6b 20 74 6f |end open|Stack to|
|00000b40| 20 74 68 69 73 20 63 64 | 0d 65 6e 64 20 72 65 73 | this cd|.end res|
|00000b50| 75 6d 65 53 74 61 63 6b | 0d 0d 6f 6e 20 73 75 73 |umeStack|..on sus|
|00000b60| 70 65 6e 64 53 74 61 63 | 6b 0d 69 66 20 77 6f 72 |pendStac|k.if wor|
|00000b70| 64 20 31 20 6f 66 20 74 | 68 65 20 73 68 6f 72 74 |d 1 of t|he short|
|00000b80| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 73 74 | name of| this st|
|00000b90| 61 63 6b 20 3d 20 22 64 | 65 76 65 6c 6f 70 22 20 |ack = "d|evelop" |
|00000ba0| 74 68 65 6e 20 73 65 6e | 64 20 63 6c 6f 73 65 53 |then sen|d closeS|
|00000bb0| 74 61 63 6b 20 74 6f 20 | 74 68 69 73 20 63 64 0d |tack to |this cd.|
|00000bc0| 65 6e 64 20 73 75 73 70 | 65 6e 64 53 74 61 63 6b |end susp|endStack|
|00000bd0| 0d 0d 6f 6e 20 63 6c 6f | 73 65 53 74 61 63 6b 0d |..on clo|seStack.|
|00000be0| 69 66 20 77 6f 72 64 20 | 31 20 6f 66 20 74 68 65 |if word |1 of the|
|00000bf0| 20 73 68 6f 72 74 20 6e | 61 6d 65 20 6f 66 20 74 | short n|ame of t|
|00000c00| 68 69 73 20 73 74 61 63 | 6b 20 3d 20 22 64 65 76 |his stac|k = "dev|
|00000c10| 65 6c 6f 70 22 20 74 68 | 65 6e 20 73 65 6e 64 20 |elop" th|en send |
|00000c20| 6c 6f 63 61 6c 43 6c 6f | 73 65 53 74 61 63 6b 20 |localClo|seStack |
|00000c30| 74 6f 20 74 68 69 73 20 | 63 64 0d 65 6e 64 20 63 |to this |cd.end c|
|00000c40| 6c 6f 73 65 53 74 61 63 | 6b 0d 0d 6f 6e 20 6d 6f |loseStac|k..on mo|
|00000c50| 75 73 65 44 6f 77 6e 0d | 69 66 20 77 6f 72 64 20 |useDown.|if word |
|00000c60| 32 20 6f 66 20 74 68 65 | 20 73 68 6f 72 74 20 6e |2 of the| short n|
|00000c70| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |ame of t|his stac|
|00000c80| 6b 20 3d 20 22 69 73 73 | 75 65 22 20 74 68 65 6e |k = "iss|ue" then|
|00000c90| 20 49 53 53 55 45 6d 6f | 75 73 65 44 6f 77 6e 0d | ISSUEmo|useDown.|
|00000ca0| 65 6e 64 20 6d 6f 75 73 | 65 44 6f 77 6e 0d 0d 6f |end mous|eDown..o|
|00000cb0| 6e 20 6d 6f 75 73 65 55 | 70 0d 69 66 20 22 64 65 |n mouseU|p.if "de|
|00000cc0| 76 65 6c 6f 70 20 69 73 | 73 75 65 22 20 69 73 20 |velop is|sue" is |
|00000cd0| 69 6e 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |in the s|hort nam|
|00000ce0| 65 20 6f 66 20 74 68 69 | 73 20 63 64 20 74 68 65 |e of thi|s cd the|
|00000cf0| 6e 20 c2 0d 67 6f 20 74 | 68 69 73 20 63 64 20 2d |n ..go t|his cd -|
|00000d00| 2d 20 54 4f 20 4f 56 45 | 52 43 4f 4d 45 20 48 59 |- TO OVE|RCOME HY|
|00000d10| 50 45 52 43 41 52 44 20 | 42 55 47 20 57 48 49 43 |PERCARD |BUG WHIC|
|00000d20| 48 20 52 45 50 41 49 4e | 54 53 20 52 45 53 49 5a |H REPAIN|TS RESIZ|
|00000d30| 45 20 42 4f 58 20 57 48 | 49 54 45 0d 65 6e 64 20 |E BOX WH|ITE.end |
|00000d40| 6d 6f 75 73 65 55 70 0d | 0d 6f 6e 20 6f 70 65 6e |mouseUp.|.on open|
|00000d50| 43 61 72 64 0d 69 66 20 | 77 6f 72 64 20 32 20 6f |Card.if |word 2 o|
|00000d60| 66 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |f the sh|ort name|
|00000d70| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 3d | of this| stack =|
|00000d80| 20 22 69 73 73 75 65 22 | 20 74 68 65 6e 20 49 53 | "issue"| then IS|
|00000d90| 53 55 45 6f 70 65 6e 43 | 61 72 64 0d 65 6e 64 20 |SUEopenC|ard.end |
|00000da0| 6f 70 65 6e 43 61 72 64 | 0d 0d 6f 6e 20 63 6c 6f |openCard|..on clo|
|00000db0| 73 65 43 61 72 64 0d 6c | 6f 63 6b 20 73 63 72 65 |seCard.l|ock scre|
|00000dc0| 65 6e 0d 65 6e 64 20 63 | 6c 6f 73 65 43 61 72 64 |en.end c|loseCard|
|00000dd0| 0d 0d 6f 6e 20 61 72 72 | 6f 77 4b 65 79 20 64 69 |..on arr|owKey di|
|00000de0| 72 0d 69 66 20 77 6f 72 | 64 20 32 20 6f 66 20 74 |r.if wor|d 2 of t|
|00000df0| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00000e00| 20 74 68 69 73 20 73 74 | 61 63 6b 20 3d 20 22 69 | this st|ack = "i|
|00000e10| 73 73 75 65 22 20 74 68 | 65 6e 20 49 53 53 55 45 |ssue" th|en ISSUE|
|00000e20| 61 72 72 6f 77 4b 65 79 | 20 64 69 72 0d 65 6c 73 |arrowKey| dir.els|
|00000e30| 65 20 70 61 73 73 20 61 | 72 72 6f 77 4b 65 79 0d |e pass a|rrowKey.|
|00000e40| 65 6e 64 20 61 72 72 6f | 77 4b 65 79 0d 0d 6f 6e |end arro|wKey..on|
|00000e50| 20 63 6f 6d 6d 61 6e 64 | 4b 65 79 44 6f 77 6e 20 | command|KeyDown |
|00000e60| 77 68 61 74 0d 69 66 20 | 77 68 61 74 20 3d 20 22 |what.if |what = "|
|00000e70| 47 22 20 74 68 65 6e 0d | 4c 42 6e 65 78 74 46 69 |G" then.|LBnextFi|
|00000e80| 6e 64 0d 65 6c 73 65 20 | 69 66 20 77 68 61 74 20 |nd.else |if what |
|00000e90| 3d 20 22 30 22 20 74 68 | 65 6e 0d 72 65 73 65 74 |= "0" th|en.reset|
|00000ea0| 20 6d 65 6e 75 62 61 72 | 0d 73 65 74 20 63 61 6e | menubar|.set can|
|00000eb0| 74 6d 6f 64 69 66 79 20 | 6f 66 20 74 68 69 73 20 |tmodify |of this |
|00000ec0| 73 74 61 63 6b 20 74 6f | 20 66 61 6c 73 65 0d 65 |stack to| false.e|
|00000ed0| 6c 73 65 20 70 61 73 73 | 20 63 6f 6d 6d 61 6e 64 |lse pass| command|
|00000ee0| 4b 65 79 44 6f 77 6e 0d | 65 6e 64 20 63 6f 6d 6d |KeyDown.|end comm|
|00000ef0| 61 6e 64 4b 65 79 44 6f | 77 6e 0d 0d 6f 6e 20 4c |andKeyDo|wn..on L|
|00000f00| 42 6e 65 78 74 46 69 6e | 64 0d 67 6c 6f 62 61 6c |BnextFin|d.global|
|00000f10| 20 44 50 6c 61 73 74 53 | 65 61 72 63 68 2c 44 50 | DPlastS|earch,DP|
|00000f20| 6c 61 73 74 46 69 6e 64 | 0d 70 75 74 20 73 68 6f |lastFind|.put sho|
|00000f30| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |rt name |of this |
|00000f40| 73 74 61 63 6b 20 69 6e | 74 6f 20 63 75 72 72 65 |stack in|to curre|
|00000f50| 6e 74 0d 70 75 74 20 74 | 68 65 20 6c 61 73 74 20 |nt.put t|he last |
|00000f60| 77 6f 72 64 20 6f 66 20 | 63 75 72 72 65 6e 74 20 |word of |current |
|00000f70| 69 6e 74 6f 20 6f 72 69 | 67 0d 70 75 74 20 6f 72 |into ori|g.put or|
|00000f80| 69 67 20 69 6e 74 6f 20 | 6e 75 6d 0d 69 66 20 44 |ig into |num.if D|
|00000f90| 50 6c 61 73 74 53 65 61 | 72 63 68 20 ad 20 22 22 |PlastSea|rch . ""|
|00000fa0| 20 61 6e 64 20 22 64 65 | 76 65 6c 6f 70 20 22 20 | and "de|velop " |
|00000fb0| 69 73 20 69 6e 20 63 75 | 72 72 65 6e 74 20 74 68 |is in cu|rrent th|
|00000fc0| 65 6e 0d 69 66 20 6f 72 | 69 67 20 69 73 20 69 6e |en.if or|ig is in|
|00000fd0| 20 69 73 73 75 65 73 28 | 29 20 74 68 65 6e 20 66 | issues(|) then f|
|00000fe0| 69 6e 64 20 73 74 72 69 | 6e 67 20 44 50 6c 61 73 |ind stri|ng DPlas|
|00000ff0| 74 73 65 61 72 63 68 20 | 69 6e 20 66 6c 64 20 22 |tsearch |in fld "|
|00001000| 70 61 67 65 22 0d 65 6c | 73 65 20 66 69 6e 64 20 |page".el|se find |
|00001010| 73 74 72 69 6e 67 20 44 | 50 6c 61 73 74 73 65 61 |string D|Plastsea|
|00001020| 72 63 68 0d 69 66 20 74 | 68 65 20 72 65 73 75 6c |rch.if t|he resul|
|00001030| 74 20 ad 20 22 22 20 74 | 68 65 6e 0d 62 65 65 70 |t . "" t|hen.beep|
|00001040| 0d 65 78 69 74 20 4c 42 | 6e 65 78 74 46 69 6e 64 |.exit LB|nextFind|
|00001050| 0d 65 6e 64 20 69 66 0d | 0d 69 66 20 6f 72 69 67 |.end if.|.if orig|
|00001060| 20 69 73 20 69 6e 20 69 | 73 73 75 65 73 28 29 20 | is in i|ssues() |
|00001070| 74 68 65 6e 0d 70 75 74 | 20 74 68 65 20 6e 75 6d |then.put| the num|
|00001080| 62 65 72 20 6f 66 20 74 | 68 69 73 20 63 64 20 2a |ber of t|his cd *|
|00001090| 20 31 30 30 30 30 30 20 | 2b 20 77 6f 72 64 20 32 | 100000 |+ word 2|
|000010a0| 20 6f 66 20 74 68 65 20 | 66 6f 75 6e 64 43 68 75 | of the |foundChu|
|000010b0| 6e 6b 20 69 6e 74 6f 20 | 69 64 0d 69 66 20 69 64 |nk into |id.if id|
|000010c0| 20 b2 20 69 74 65 6d 20 | 31 20 6f 66 20 44 50 6c | . item |1 of DPl|
|000010d0| 61 73 74 46 69 6e 64 20 | 74 68 65 6e 0d 69 66 20 |astFind |then.if |
|000010e0| 69 74 65 6d 20 32 20 6f | 66 20 44 50 6c 61 73 74 |item 2 o|f DPlast|
|000010f0| 46 69 6e 64 20 3d 20 31 | 20 74 68 65 6e 20 2d 2d |Find = 1| then --|
|00001100| 20 49 46 20 53 45 41 52 | 43 48 49 4e 47 20 41 43 | IF SEAR|CHING AC|
|00001110| 52 4f 53 53 20 53 54 41 | 43 4b 53 0d 72 65 70 65 |ROSS STA|CKS.repe|
|00001120| 61 74 20 77 68 69 6c 65 | 20 74 68 65 20 6c 6f 63 |at while| the loc|
|00001130| 6b 53 63 72 65 65 6e 0d | 75 6e 6c 6f 63 6b 20 73 |kScreen.|unlock s|
|00001140| 63 72 65 65 6e 0d 65 6e | 64 20 72 65 70 65 61 74 |creen.en|d repeat|
|00001150| 0d 70 75 73 68 20 63 64 | 0d 6c 6f 63 6b 20 73 63 |.push cd|.lock sc|
|00001160| 72 65 65 6e 0d 73 65 74 | 20 6c 6f 63 6b 6d 65 73 |reen.set| lockmes|
|00001170| 73 61 67 65 73 20 74 6f | 20 74 72 75 65 0d 73 65 |sages to| true.se|
|00001180| 74 20 6c 6f 63 6b 72 65 | 63 65 6e 74 20 74 6f 20 |t lockre|cent to |
|00001190| 74 72 75 65 0d 70 75 74 | 20 66 61 6c 73 65 20 69 |true.put| false i|
|000011a0| 6e 74 6f 20 66 6f 75 6e | 64 0d 70 75 74 20 74 68 |nto foun|d.put th|
|000011b0| 65 20 76 69 73 69 62 6c | 65 20 6f 66 20 6d 73 67 |e visibl|e of msg|
|000011c0| 20 69 6e 74 6f 20 73 61 | 76 65 4d 73 67 0d 70 75 | into sa|veMsg.pu|
|000011d0| 74 20 6d 73 67 20 69 6e | 74 6f 20 6c 69 6e 65 20 |t msg in|to line |
|000011e0| 32 20 6f 66 20 73 61 76 | 65 4d 73 67 0d 72 65 70 |2 of sav|eMsg.rep|
|000011f0| 65 61 74 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |eat.set |cursor t|
|00001200| 6f 20 62 75 73 79 0d 70 | 75 74 20 28 6e 75 6d 20 |o busy.p|ut (num |
|00001210| 6d 6f 64 20 31 30 29 20 | 2b 20 31 20 69 6e 74 6f |mod 10) |+ 1 into|
|00001220| 20 6e 75 6d 0d 70 75 74 | 20 22 53 65 61 72 63 68 | num.put| "Search|
|00001230| 69 6e 67 20 64 65 76 65 | 6c 6f 70 20 49 73 73 75 |ing deve|lop Issu|
|00001240| 65 22 20 26 26 20 6e 75 | 6d 20 26 20 22 2e 2e 2e |e" && nu|m & "...|
|00001250| 22 20 69 6e 74 6f 20 6d | 73 67 0d 69 66 20 74 68 |" into m|sg.if th|
|00001260| 65 72 65 20 69 73 20 61 | 20 77 69 6e 64 6f 77 20 |ere is a| window |
|00001270| 28 22 44 65 76 65 6c 6f | 70 20 49 73 73 75 65 22 |("Develo|p Issue"|
|00001280| 20 26 26 20 6e 75 6d 29 | 20 74 68 65 6e 0d 73 68 | && num)| then.sh|
|00001290| 6f 77 20 77 69 6e 64 6f | 77 20 28 22 44 65 76 65 |ow windo|w ("Deve|
|000012a0| 6c 6f 70 20 49 73 73 75 | 65 22 20 26 26 20 6e 75 |lop Issu|e" && nu|
|000012b0| 6d 29 0d 67 6f 20 63 64 | 20 31 0d 70 75 74 20 66 |m).go cd| 1.put f|
|000012c0| 61 6c 73 65 20 69 6e 74 | 6f 20 77 61 73 6e 74 4f |alse int|o wasntO|
|000012d0| 70 65 6e 0d 65 6c 73 65 | 0d 67 6f 20 73 74 61 63 |pen.else|.go stac|
|000012e0| 6b 20 28 22 44 65 76 65 | 6c 6f 70 20 49 73 73 75 |k ("Deve|lop Issu|
|000012f0| 65 22 20 26 26 20 6e 75 | 6d 29 20 69 6e 20 6e 65 |e" && nu|m) in ne|
|00001300| 77 20 77 69 6e 64 6f 77 | 0d 69 66 20 74 68 65 20 |w window|.if the |
|00001310| 72 65 73 75 6c 74 20 ad | 20 22 22 20 74 68 65 6e |result .| "" then|
|00001320| 0d 61 6e 73 77 65 72 20 | 74 68 65 20 72 65 73 75 |.answer |the resu|
|00001330| 6c 74 0d 65 78 69 74 20 | 72 65 70 65 61 74 0d 65 |lt.exit |repeat.e|
|00001340| 6e 64 20 69 66 0d 68 69 | 64 65 20 73 63 72 6f 6c |nd if.hi|de scrol|
|00001350| 6c 20 77 69 6e 64 6f 77 | 0d 70 75 74 20 74 72 75 |l window|.put tru|
|00001360| 65 20 69 6e 74 6f 20 77 | 61 73 6e 74 4f 70 65 6e |e into w|asntOpen|
|00001370| 0d 65 6e 64 20 69 66 0d | 66 69 6e 64 20 73 74 72 |.end if.|find str|
|00001380| 69 6e 67 20 44 50 6c 61 | 73 74 73 65 61 72 63 68 |ing DPla|stsearch|
|00001390| 20 69 6e 20 66 6c 64 20 | 22 70 61 67 65 22 0d 69 | in fld |"page".i|
|000013a0| 66 20 74 68 65 20 72 65 | 73 75 6c 74 20 3d 20 22 |f the re|sult = "|
|000013b0| 22 20 74 68 65 6e 0d 70 | 75 74 20 74 72 75 65 20 |" then.p|ut true |
|000013c0| 69 6e 74 6f 20 66 6f 75 | 6e 64 0d 65 78 69 74 20 |into fou|nd.exit |
|000013d0| 72 65 70 65 61 74 0d 65 | 6c 73 65 20 69 66 20 77 |repeat.e|lse if w|
|000013e0| 61 73 6e 74 4f 70 65 6e | 20 74 68 65 6e 20 63 6c |asntOpen| then cl|
|000013f0| 6f 73 65 20 77 69 6e 64 | 6f 77 20 28 22 44 65 76 |ose wind|ow ("Dev|
|00001400| 65 6c 6f 70 20 49 73 73 | 75 65 22 20 26 26 20 6e |elop Iss|ue" && n|
|00001410| 75 6d 29 0d 69 66 20 6e | 75 6d 20 3d 20 6f 72 69 |um).if n|um = ori|
|00001420| 67 20 74 68 65 6e 20 65 | 78 69 74 20 72 65 70 65 |g then e|xit repe|
|00001430| 61 74 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 70 75 |at.end r|epeat.pu|
|00001440| 74 20 6c 69 6e 65 20 32 | 20 6f 66 20 73 61 76 65 |t line 2| of save|
|00001450| 4d 73 67 20 69 6e 74 6f | 20 6d 73 67 0d 73 65 74 |Msg into| msg.set|
|00001460| 20 74 68 65 20 76 69 73 | 69 62 6c 65 20 6f 66 20 | the vis|ible of |
|00001470| 6d 73 67 20 74 6f 20 6c | 69 6e 65 20 31 20 6f 66 |msg to l|ine 1 of|
|00001480| 20 73 61 76 65 4d 73 67 | 0d 69 66 20 66 6f 75 6e | saveMsg|.if foun|
|00001490| 64 20 74 68 65 6e 0d 70 | 6f 70 20 63 64 20 69 6e |d then.p|op cd in|
|000014a0| 74 6f 20 74 72 61 73 68 | 0d 73 65 6e 64 20 69 64 |to trash|.send id|
|000014b0| 6c 65 20 74 6f 20 74 68 | 69 73 20 63 64 0d 75 6e |le to th|is cd.un|
|000014c0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 70 75 74 20 |lock scr|een.put |
|000014d0| 6c 69 6e 65 20 32 20 6f | 66 20 73 61 76 65 4d 73 |line 2 o|f saveMs|
|000014e0| 67 20 69 6e 74 6f 20 6d | 73 67 0d 73 65 74 20 74 |g into m|sg.set t|
|000014f0| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 6d 73 |he visib|le of ms|
|00001500| 67 20 74 6f 20 66 61 6c | 73 65 20 2d 2d 6c 69 6e |g to fal|se --lin|
|00001510| 65 20 31 20 6f 66 20 73 | 61 76 65 4d 73 67 0d 66 |e 1 of s|aveMsg.f|
|00001520| 69 6e 64 20 22 22 0d 66 | 69 6e 64 20 73 74 72 69 |ind "".f|ind stri|
|00001530| 6e 67 20 44 50 6c 61 73 | 74 73 65 61 72 63 68 20 |ng DPlas|tsearch |
|00001540| 69 6e 20 66 6c 64 20 22 | 70 61 67 65 22 0d 70 75 |in fld "|page".pu|
|00001550| 74 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |t the nu|mber of |
|00001560| 74 68 69 73 20 63 64 20 | 2a 20 31 30 30 30 30 30 |this cd |* 100000|
|00001570| 20 2b 20 77 6f 72 64 20 | 32 20 6f 66 20 74 68 65 | + word |2 of the|
|00001580| 20 66 6f 75 6e 64 43 68 | 75 6e 6b 20 69 6e 74 6f | foundCh|unk into|
|00001590| 20 69 74 65 6d 20 31 20 | 6f 66 20 44 50 6c 61 73 | item 1 |of DPlas|
|000015a0| 74 46 69 6e 64 0d 65 78 | 69 74 20 4c 42 6e 65 78 |tFind.ex|it LBnex|
|000015b0| 74 46 69 6e 64 0d 65 6c | 73 65 0d 62 65 65 70 20 |tFind.el|se.beep |
|000015c0| 2d 2d 20 53 45 41 52 43 | 48 45 44 20 41 4c 4c 20 |-- SEARC|HED ALL |
|000015d0| 41 4e 44 20 4e 4f 57 20 | 42 41 43 4b 20 54 4f 20 |AND NOW |BACK TO |
|000015e0| 4f 52 49 47 20 2d 2d 20 | 4e 4f 20 4f 54 48 45 52 |ORIG -- |NO OTHER|
|000015f0| 20 4f 43 43 55 52 52 45 | 4e 43 45 53 0d 70 6f 70 | OCCURRE|NCES.pop|
|00001600| 20 63 64 0d 65 6e 64 20 | 69 66 0d 75 6e 6c 6f 63 | cd.end |if.unloc|
|00001610| 6b 20 73 63 72 65 65 6e | 0d 65 6c 73 65 0d 62 65 |k screen|.else.be|
|00001620| 65 70 20 2d 2d 20 46 4f | 55 4e 44 20 53 41 4d 45 |ep -- FO|UND SAME|
|00001630| 20 4f 43 43 55 52 52 45 | 4e 43 45 0d 65 6e 64 20 | OCCURRE|NCE.end |
|00001640| 69 66 0d 65 6e 64 20 69 | 66 0d 70 75 74 20 69 64 |if.end i|f.put id|
|00001650| 20 69 6e 74 6f 20 69 74 | 65 6d 20 31 20 6f 66 20 | into it|em 1 of |
|00001660| 44 50 6c 61 73 74 46 69 | 6e 64 0d 65 6e 64 20 69 |DPlastFi|nd.end i|
|00001670| 66 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 4c 42 6e |f.end if|.end LBn|
|00001680| 65 78 74 46 69 6e 64 0d | 0d 6f 6e 20 64 6f 4d 65 |extFind.|.on doMe|
|00001690| 6e 75 20 74 68 65 49 74 | 65 6d 2c 74 68 65 4d 65 |nu theIt|em,theMe|
|000016a0| 6e 75 0d 69 66 20 74 68 | 65 4d 65 6e 75 20 3d 20 |nu.if th|eMenu = |
|000016b0| 22 57 69 6e 64 6f 77 73 | 22 20 61 6e 64 20 74 68 |"Windows|" and th|
|000016c0| 65 72 65 20 69 73 20 61 | 20 77 69 6e 64 6f 77 20 |ere is a| window |
|000016d0| 74 68 65 49 74 65 6d 20 | 74 68 65 6e 0d 73 68 6f |theItem |then.sho|
|000016e0| 77 20 77 69 6e 64 6f 77 | 20 74 68 65 49 74 65 6d |w window| theItem|
|000016f0| 0d 65 6c 73 65 20 69 66 | 20 74 68 65 49 74 65 6d |.else if| theItem|
|00001700| 20 3d 20 22 48 65 6c 70 | 22 20 74 68 65 6e 20 67 | = "Help|" then g|
|00001710| 6f 48 65 6c 70 20 2d 2d | 20 66 6f 72 20 73 6f 6d |oHelp --| for som|
|00001720| 65 20 72 65 61 73 6f 6e | 20 74 68 65 20 6d 65 6e |e reason| the men|
|00001730| 75 6d 73 67 20 64 6f 65 | 73 6e 74 20 77 6f 72 6b |umsg doe|snt work|
|00001740| 20 66 6f 72 20 22 68 65 | 6c 70 22 3f 3f 3f 0d 65 | for "he|lp"???.e|
|00001750| 6c 73 65 20 70 61 73 73 | 20 64 6f 4d 65 6e 75 0d |lse pass| doMenu.|
|00001760| 65 6e 64 20 64 6f 4d 65 | 6e 75 0d 0d 6f 6e 20 6d |end doMe|nu..on m|
|00001770| 6f 76 65 57 69 6e 64 6f | 77 0d 69 66 20 74 68 65 |oveWindo|w.if the|
|00001780| 20 74 6f 70 20 6f 66 20 | 63 64 20 77 69 6e 64 6f | top of |cd windo|
|00001790| 77 20 3c 20 33 38 20 74 | 68 65 6e 20 73 65 74 20 |w < 38 t|hen set |
|000017a0| 74 6f 70 20 6f 66 20 63 | 64 20 77 69 6e 64 6f 77 |top of c|d window|
|000017b0| 20 74 6f 20 33 38 0d 65 | 6e 64 20 6d 6f 76 65 57 | to 38.e|nd moveW|
|000017c0| 69 6e 64 6f 77 0d 0d 6f | 6e 20 73 69 7a 65 57 69 |indow..o|n sizeWi|
|000017d0| 6e 64 6f 77 0d 69 66 20 | 77 6f 72 64 20 32 20 6f |ndow.if |word 2 o|
|000017e0| 66 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |f the sh|ort name|
|000017f0| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 3d | of this| stack =|
|00001800| 20 22 69 73 73 75 65 22 | 20 74 68 65 6e 20 49 53 | "issue"| then IS|
|00001810| 53 55 45 73 69 7a 65 57 | 69 6e 64 6f 77 20 64 69 |SUEsizeW|indow di|
|00001820| 72 0d 65 6c 73 65 20 70 | 61 73 73 20 73 69 7a 65 |r.else p|ass size|
|00001830| 57 69 6e 64 6f 77 0d 65 | 6e 64 20 73 69 7a 65 57 |Window.e|nd sizeW|
|00001840| 69 6e 64 6f 77 0d 0d 6f | 6e 20 62 75 69 6c 64 6d |indow..o|n buildm|
|00001850| 65 6e 75 73 0d 75 70 64 | 61 74 65 57 69 6e 64 6f |enus.upd|ateWindo|
|00001860| 77 73 0d 69 66 20 74 68 | 65 72 65 20 69 73 20 6e |ws.if th|ere is n|
|00001870| 6f 74 20 61 20 6d 65 6e | 75 69 74 65 6d 20 22 67 |ot a men|uitem "g|
|00001880| 6f 20 74 6f 20 69 73 73 | 75 65 2e 2e 2e 22 20 69 |o to iss|ue..." i|
|00001890| 6e 20 6d 65 6e 75 20 22 | 67 6f 22 20 74 68 65 6e |n menu "|go" then|
|000018a0| 0d 2d 2d 44 45 4c 45 54 | 45 20 4f 4c 44 20 4d 45 |.--DELET|E OLD ME|
|000018b0| 4e 55 53 0d 72 65 73 65 | 74 20 6d 65 6e 75 62 61 |NUS.rese|t menuba|
|000018c0| 72 0d 67 65 74 20 74 68 | 65 20 6d 65 6e 75 73 0d |r.get th|e menus.|
|000018d0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|000018e0| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|000018f0| 6f 66 20 6c 69 6e 65 73 | 20 69 6e 20 69 74 0d 69 |of lines| in it.i|
|00001900| 66 20 6c 69 6e 65 20 69 | 20 6f 66 20 69 74 20 69 |f line i| of it i|
|00001910| 73 20 69 6e 20 22 46 69 | 6c 65 c6 45 64 69 74 c6 |s in "Fi|le.Edit.|
|00001920| 47 6f c6 54 6f 6f 6c 73 | c6 4f 62 6a 65 63 74 73 |Go.Tools|.Objects|
|00001930| c6 46 6f 6e 74 c6 53 74 | 79 6c 65 c6 22 20 74 68 |.Font.St|yle." th|
|00001940| 65 6e 20 64 65 6c 65 74 | 65 20 6d 65 6e 75 20 28 |en delet|e menu (|
|00001950| 6c 69 6e 65 20 69 20 6f | 66 20 69 74 29 0d 65 6e |line i o|f it).en|
|00001960| 64 20 72 65 70 65 61 74 | 0d 0d 63 72 65 61 74 65 |d repeat|..create|
|00001970| 20 6d 65 6e 75 20 22 46 | 69 6c 65 22 20 2d 2d 20 | menu "F|ile" -- |
|00001980| 32 0d 70 75 74 20 22 4f | 70 65 6e 20 53 74 61 63 |2.put "O|pen Stac|
|00001990| 6b 2e 2e 2e 2c 53 61 76 | 65 20 41 20 43 6f 70 79 |k...,Sav|e A Copy|
|000019a0| 2e 2e 2e 2c 2d 2c 50 72 | 69 6e 74 2e 2e 2e 2c 2d |...,-,Pr|int...,-|
|000019b0| 2c 43 6f 6d 70 61 63 74 | 20 53 74 61 63 6b 2c 51 |,Compact| Stack,Q|
|000019c0| 75 69 74 20 48 79 70 65 | 72 43 61 72 64 22 20 69 |uit Hype|rCard" i|
|000019d0| 6e 74 6f 20 6d 65 6e 75 | 20 22 46 69 6c 65 22 20 |nto menu| "File" |
|000019e0| c2 0d 77 69 74 68 20 6d | 65 6e 75 6d 73 67 73 20 |..with m|enumsgs |
|000019f0| 22 2c 2c 2c 70 72 69 6e | 74 50 61 67 65 73 2c 2c |",,,prin|tPages,,|
|00001a00| 2c 2c 22 0d 73 65 74 20 | 63 6f 6d 6d 61 6e 64 43 |,,".set |commandC|
|00001a10| 68 61 72 20 6f 66 20 6d | 65 6e 75 69 74 65 6d 20 |har of m|enuitem |
|00001a20| 22 4f 70 65 6e 20 53 74 | 61 63 6b 2e 2e 2e 22 20 |"Open St|ack..." |
|00001a30| 6f 66 20 6d 65 6e 75 20 | 22 46 69 6c 65 22 20 74 |of menu |"File" t|
|00001a40| 6f 20 22 4f 22 0d 73 65 | 74 20 63 6f 6d 6d 61 6e |o "O".se|t comman|
|00001a50| 64 43 68 61 72 20 6f 66 | 20 6d 65 6e 75 69 74 65 |dChar of| menuite|
|00001a60| 6d 20 22 53 61 76 65 20 | 41 20 43 6f 70 79 2e 2e |m "Save |A Copy..|
|00001a70| 2e 22 20 6f 66 20 6d 65 | 6e 75 20 22 46 69 6c 65 |." of me|nu "File|
|00001a80| 22 20 74 6f 20 22 53 22 | 0d 73 65 74 20 63 6f 6d |" to "S"|.set com|
|00001a90| 6d 61 6e 64 43 68 61 72 | 20 6f 66 20 6d 65 6e 75 |mandChar| of menu|
|00001aa0| 69 74 65 6d 20 22 50 72 | 69 6e 74 2e 2e 2e 22 20 |item "Pr|int..." |
|00001ab0| 6f 66 20 6d 65 6e 75 20 | 22 46 69 6c 65 22 20 74 |of menu |"File" t|
|00001ac0| 6f 20 22 50 22 0d 73 65 | 74 20 63 6f 6d 6d 61 6e |o "P".se|t comman|
|00001ad0| 64 43 68 61 72 20 6f 66 | 20 6d 65 6e 75 69 74 65 |dChar of| menuite|
|00001ae0| 6d 20 22 51 75 69 74 20 | 48 79 70 65 72 43 61 72 |m "Quit |HyperCar|
|00001af0| 64 22 20 6f 66 20 6d 65 | 6e 75 20 22 46 69 6c 65 |d" of me|nu "File|
|00001b00| 22 20 74 6f 20 22 51 22 | 0d 73 65 74 20 6d 65 6e |" to "Q"|.set men|
|00001b10| 75 4d 73 67 20 6f 66 20 | 6d 65 6e 75 69 74 65 6d |uMsg of |menuitem|
|00001b20| 20 22 50 72 69 6e 74 2e | 2e 2e 22 20 6f 66 20 6d | "Print.|.." of m|
|00001b30| 65 6e 75 20 22 46 69 6c | 65 22 20 74 6f 20 22 70 |enu "Fil|e" to "p|
|00001b40| 72 69 6e 74 70 61 67 65 | 73 22 0d 0d 63 72 65 61 |rintpage|s"..crea|
|00001b50| 74 65 20 6d 65 6e 75 20 | 22 45 64 69 74 22 20 2d |te menu |"Edit" -|
|00001b60| 2d 20 33 0d 70 75 74 20 | 22 55 6e 64 6f 2c 2d 2c |- 3.put |"Undo,-,|
|00001b70| 43 75 74 20 54 65 78 74 | 2c 43 6f 70 79 20 54 65 |Cut Text|,Copy Te|
|00001b80| 78 74 2c 50 61 73 74 65 | 20 54 65 78 74 2c 2d 2c |xt,Paste| Text,-,|
|00001b90| 55 6e 6c 6f 63 6b 20 54 | 65 78 74 22 20 69 6e 74 |Unlock T|ext" int|
|00001ba0| 6f 20 6d 65 6e 75 20 22 | 45 64 69 74 22 20 c2 0d |o menu "|Edit" ..|
|00001bb0| 77 69 74 68 20 6d 65 6e | 75 6d 73 67 73 20 22 2c |with men|umsgs ",|
|00001bc0| 2c 2c 2c 2c 2c 73 65 74 | 54 65 78 74 4c 6f 63 6b |,,,,,set|TextLock|
|00001bd0| 20 74 6f 67 67 6c 65 22 | 0d 73 65 74 20 63 6f 6d | toggle"|.set com|
|00001be0| 6d 61 6e 64 43 68 61 72 | 20 6f 66 20 6d 65 6e 75 |mandChar| of menu|
|00001bf0| 69 74 65 6d 20 22 55 6e | 64 6f 22 20 6f 66 20 6d |item "Un|do" of m|
|00001c00| 65 6e 75 20 22 45 64 69 | 74 22 20 74 6f 20 22 5a |enu "Edi|t" to "Z|
|00001c10| 22 0d 73 65 74 20 63 6f | 6d 6d 61 6e 64 43 68 61 |".set co|mmandCha|
|00001c20| 72 20 6f 66 20 6d 65 6e | 75 69 74 65 6d 20 22 43 |r of men|uitem "C|
|00001c30| 75 74 20 54 65 78 74 22 | 20 6f 66 20 6d 65 6e 75 |ut Text"| of menu|
|00001c40| 20 22 45 64 69 74 22 20 | 74 6f 20 22 58 22 0d 73 | "Edit" |to "X".s|
|00001c50| 65 74 20 63 6f 6d 6d 61 | 6e 64 43 68 61 72 20 6f |et comma|ndChar o|
|00001c60| 66 20 6d 65 6e 75 69 74 | 65 6d 20 22 43 6f 70 79 |f menuit|em "Copy|
|00001c70| 20 54 65 78 74 22 20 6f | 66 20 6d 65 6e 75 20 22 | Text" o|f menu "|
|00001c80| 45 64 69 74 22 20 74 6f | 20 22 43 22 0d 73 65 74 |Edit" to| "C".set|
|00001c90| 20 63 6f 6d 6d 61 6e 64 | 43 68 61 72 20 6f 66 20 | command|Char of |
|00001ca0| 6d 65 6e 75 69 74 65 6d | 20 22 50 61 73 74 65 20 |menuitem| "Paste |
|00001cb0| 54 65 78 74 22 20 6f 66 | 20 6d 65 6e 75 20 22 45 |Text" of| menu "E|
|00001cc0| 64 69 74 22 20 74 6f 20 | 22 56 22 0d 73 65 74 20 |dit" to |"V".set |
|00001cd0| 63 6f 6d 6d 61 6e 64 43 | 68 61 72 20 6f 66 20 6d |commandC|har of m|
|00001ce0| 65 6e 75 69 74 65 6d 20 | 22 55 6e 6c 6f 63 6b 20 |enuitem |"Unlock |
|00001cf0| 54 65 78 74 22 20 6f 66 | 20 6d 65 6e 75 20 22 45 |Text" of| menu "E|
|00001d00| 64 69 74 22 20 74 6f 20 | 22 55 22 0d 0d 63 72 65 |dit" to |"U"..cre|
|00001d10| 61 74 65 20 6d 65 6e 75 | 20 22 47 6f 22 20 2d 2d |ate menu| "Go" --|
|00001d20| 20 34 0d 70 75 74 20 22 | 67 6f 54 4f 43 2c 67 6f | 4.put "|goTOC,go|
|00001d30| 49 6e 64 65 78 2c 67 6f | 54 68 69 73 54 4f 43 2c |Index,go|ThisTOC,|
|00001d40| 2c 67 6f 49 73 73 75 65 | 2c 67 6f 50 61 67 65 2c |,goIssue|,goPage,|
|00001d50| 2c 67 6f 48 65 6c 70 2c | 2c 2c 2c 70 72 65 76 53 |,goHelp,|,,,prevS|
|00001d60| 65 63 74 69 6f 6e 2c 2c | 22 20 26 c2 0d 22 2c 4e |ection,,|" &..",N|
|00001d70| 65 78 74 53 65 63 74 69 | 6f 6e 2c 2c 2c 67 6f 46 |extSecti|on,,,goF|
|00001d80| 69 6e 64 2c 67 6f 44 49 | 41 2c 2c 22 20 69 6e 74 |ind,goDI|A,," int|
|00001d90| 6f 20 74 68 65 4d 73 67 | 73 0d 70 75 74 20 22 54 |o theMsg|s.put "T|
|00001da0| 61 62 6c 65 20 6f 66 20 | 43 6f 6e 74 65 6e 74 73 |able of |Contents|
|00001db0| 2c 49 6e 64 65 78 2c 54 | 4f 43 20 28 54 68 69 73 |,Index,T|OC (This|
|00001dc0| 20 49 73 73 75 65 29 2c | 2d 2c 47 6f 20 54 6f 20 | Issue),|-,Go To |
|00001dd0| 49 73 73 75 65 2e 2e 2e | 2c 47 6f 20 54 6f 20 50 |Issue...|,Go To P|
|00001de0| 61 67 65 2e 2e 2e 2c 22 | 20 26 20 c2 0d 22 2d 2c |age...,"| & .."-,|
|00001df0| 48 65 6c 70 2c 42 61 63 | 6b 2c 2d 2c 46 69 72 73 |Help,Bac|k,-,Firs|
|00001e00| 74 2c 50 72 65 76 20 53 | 65 63 74 69 6f 6e 2c 50 |t,Prev S|ection,P|
|00001e10| 72 65 76 2c 4e 65 78 74 | 2c 4e 65 78 74 20 53 65 |rev,Next|,Next Se|
|00001e20| 63 74 69 6f 6e 2c 4c 61 | 73 74 2c 2d 2c 46 69 6e |ction,La|st,-,Fin|
|00001e30| 64 20 69 6e 20 64 65 76 | 65 6c 6f 70 2c 22 20 26 |d in dev|elop," &|
|00001e40| 20 c2 0d 22 44 65 76 65 | 6c 6f 70 65 72 20 49 6e | .."Deve|loper In|
|00001e50| 66 6f 20 41 73 73 69 73 | 74 61 6e 74 2c 4d 65 73 |fo Assis|tant,Mes|
|00001e60| 73 61 67 65 22 20 69 6e | 74 6f 20 6d 65 6e 75 20 |sage" in|to menu |
|00001e70| 22 47 6f 22 20 77 69 74 | 68 20 6d 65 6e 75 6d 73 |"Go" wit|h menums|
|00001e80| 67 73 20 74 68 65 4d 73 | 67 73 0d 73 65 74 20 63 |gs theMs|gs.set c|
|00001e90| 6f 6d 6d 61 6e 64 43 68 | 61 72 20 6f 66 20 6d 65 |ommandCh|ar of me|
|00001ea0| 6e 75 69 74 65 6d 20 22 | 54 61 62 6c 65 20 6f 66 |nuitem "|Table of|
|00001eb0| 20 43 6f 6e 74 65 6e 74 | 73 22 20 6f 66 20 6d 65 | Content|s" of me|
|00001ec0| 6e 75 20 22 47 6f 22 20 | 74 6f 20 22 54 22 0d 73 |nu "Go" |to "T".s|
|00001ed0| 65 74 20 63 6f 6d 6d 61 | 6e 64 43 68 61 72 20 6f |et comma|ndChar o|
|00001ee0| 66 20 6d 65 6e 75 69 74 | 65 6d 20 22 49 6e 64 65 |f menuit|em "Inde|
|00001ef0| 78 22 20 6f 66 20 6d 65 | 6e 75 20 22 47 6f 22 20 |x" of me|nu "Go" |
|00001f00| 74 6f 20 22 49 22 0d 0d | 73 65 74 20 63 6f 6d 6d |to "I"..|set comm|
|00001f10| 61 6e 64 43 68 61 72 20 | 6f 66 20 6d 65 6e 75 69 |andChar |of menui|
|00001f20| 74 65 6d 20 22 42 61 63 | 6b 22 20 6f 66 20 6d 65 |tem "Bac|k" of me|
|00001f30| 6e 75 20 22 47 6f 22 20 | 74 6f 20 22 42 22 0d 73 |nu "Go" |to "B".s|
|00001f40| 65 74 20 63 6f 6d 6d 61 | 6e 64 43 68 61 72 20 6f |et comma|ndChar o|
|00001f50| 66 20 6d 65 6e 75 69 74 | 65 6d 20 22 46 69 72 73 |f menuit|em "Firs|
|00001f60| 74 22 20 6f 66 20 6d 65 | 6e 75 20 22 47 6f 22 20 |t" of me|nu "Go" |
|00001f70| 74 6f 20 22 31 22 0d 73 | 65 74 20 63 6f 6d 6d 61 |to "1".s|et comma|
|00001f80| 6e 64 43 68 61 72 20 6f | 66 20 6d 65 6e 75 69 74 |ndChar o|f menuit|
|00001f90| 65 6d 20 22 50 72 65 76 | 22 20 6f 66 20 6d 65 6e |em "Prev|" of men|
|00001fa0| 75 20 22 47 6f 22 20 74 | 6f 20 22 32 22 0d 73 65 |u "Go" t|o "2".se|
|00001fb0| 74 20 63 6f 6d 6d 61 6e | 64 43 68 61 72 20 6f 66 |t comman|dChar of|
|00001fc0| 20 6d 65 6e 75 69 74 65 | 6d 20 22 4e 65 78 74 22 | menuite|m "Next"|
|00001fd0| 20 6f 66 20 6d 65 6e 75 | 20 22 47 6f 22 20 74 6f | of menu| "Go" to|
|00001fe0| 20 22 33 22 0d 73 65 74 | 20 63 6f 6d 6d 61 6e 64 | "3".set| command|
|00001ff0| 43 68 61 72 20 6f 66 20 | 6d 65 6e 75 69 74 65 6d |Char of |menuitem|
|00002000| 20 22 4c 61 73 74 22 20 | 6f 66 20 6d 65 6e 75 20 | "Last" |of menu |
|00002010| 22 47 6f 22 20 74 6f 20 | 22 34 22 0d 0d 73 65 74 |"Go" to |"4"..set|
|00002020| 20 63 6f 6d 6d 61 6e 64 | 43 68 61 72 20 6f 66 20 | command|Char of |
|00002030| 6d 65 6e 75 69 74 65 6d | 20 22 46 69 6e 64 20 69 |menuitem| "Find i|
|00002040| 6e 20 64 65 76 65 6c 6f | 70 22 20 6f 66 20 6d 65 |n develo|p" of me|
|00002050| 6e 75 20 22 47 6f 22 20 | 74 6f 20 22 46 22 0d 73 |nu "Go" |to "F".s|
|00002060| 65 74 20 63 6f 6d 6d 61 | 6e 64 43 68 61 72 20 6f |et comma|ndChar o|
|00002070| 66 20 6d 65 6e 75 69 74 | 65 6d 20 22 4d 65 73 73 |f menuit|em "Mess|
|00002080| 61 67 65 22 20 6f 66 20 | 6d 65 6e 75 20 22 47 6f |age" of |menu "Go|
|00002090| 22 20 74 6f 20 22 4d 22 | 0d 0d 63 72 65 61 74 65 |" to "M"|..create|
|000020a0| 20 6d 65 6e 75 20 22 57 | 69 6e 64 6f 77 73 22 20 | menu "W|indows" |
|000020b0| 2d 2d 20 36 0d 75 70 64 | 61 74 65 57 69 6e 64 6f |-- 6.upd|ateWindo|
|000020c0| 77 73 0d 0d 65 6e 64 20 | 69 66 0d 69 66 20 77 6f |ws..end |if.if wo|
|000020d0| 72 64 20 32 20 6f 66 20 | 74 68 65 20 73 68 6f 72 |rd 2 of |the shor|
|000020e0| 74 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 73 |t name o|f this s|
|000020f0| 74 61 63 6b 20 3d 20 22 | 69 73 73 75 65 22 20 74 |tack = "|issue" t|
|00002100| 68 65 6e 20 49 53 53 55 | 45 6c 6f 63 61 6c 4d 65 |hen ISSU|ElocalMe|
|00002110| 6e 75 73 0d 65 6c 73 65 | 20 73 65 6e 64 20 6c 6f |nus.else| send lo|
|00002120| 63 61 6c 4d 65 6e 75 73 | 20 74 6f 20 74 68 69 73 |calMenus| to this|
|00002130| 20 63 64 20 2d 2d 20 42 | 4f 54 48 20 49 4e 20 54 | cd -- B|OTH IN T|
|00002140| 48 49 53 20 53 54 41 43 | 4b 20 53 43 52 49 50 54 |HIS STAC|K SCRIPT|
|00002150| 0d 65 6e 64 20 62 75 69 | 6c 64 6d 65 6e 75 73 0d |.end bui|ldmenus.|
|00002160| 0d 6f 6e 20 6c 6f 63 61 | 6c 4d 65 6e 75 73 20 2d |.on loca|lMenus -|
|00002170| 2d 54 52 41 50 0d 65 6e | 64 20 6c 6f 63 61 6c 4d |-TRAP.en|d localM|
|00002180| 65 6e 75 73 0d 0d 6f 6e | 20 75 70 64 61 74 65 57 |enus..on| updateW|
|00002190| 69 6e 64 6f 77 73 0d 69 | 66 20 74 68 65 72 65 20 |indows.i|f there |
|000021a0| 69 73 20 61 20 6d 65 6e | 75 20 22 57 69 6e 64 6f |is a men|u "Windo|
|000021b0| 77 73 22 20 74 68 65 6e | 0d 70 75 74 20 74 68 65 |ws" then|.put the|
|000021c0| 20 77 69 6e 64 6f 77 73 | 20 69 6e 74 6f 20 61 6c | windows| into al|
|000021d0| 6c 57 69 6e 64 6f 77 73 | 0d 72 65 70 65 61 74 20 |lWindows|.repeat |
|000021e0| 77 69 74 68 20 69 20 3d | 20 74 68 65 20 6e 75 6d |with i =| the num|
|000021f0| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 69 6e 20 |ber of l|ines in |
|00002200| 61 6c 6c 57 69 6e 64 6f | 77 73 20 64 6f 77 6e 20 |allWindo|ws down |
|00002210| 74 6f 20 31 0d 69 66 20 | 22 64 65 76 65 6c 6f 70 |to 1.if |"develop|
|00002220| 22 20 69 73 20 6e 6f 74 | 20 69 6e 20 6c 69 6e 65 |" is not| in line|
|00002230| 20 69 20 6f 66 20 61 6c | 6c 57 69 6e 64 6f 77 73 | i of al|lWindows|
|00002240| 20 74 68 65 6e 20 64 65 | 6c 65 74 65 20 6c 69 6e | then de|lete lin|
|00002250| 65 20 69 20 6f 66 20 61 | 6c 6c 57 69 6e 64 6f 77 |e i of a|llWindow|
|00002260| 73 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 67 65 74 |s.end re|peat.get|
|00002270| 20 22 53 68 6f 77 20 50 | 61 67 65 20 53 6e 61 70 | "Show P|age Snap|
|00002280| 73 68 6f 74 73 22 20 26 | 20 72 65 74 75 72 6e 20 |shots" &| return |
|00002290| 26 20 22 2d 22 20 26 20 | 72 65 74 75 72 6e 20 26 |& "-" & |return &|
|000022a0| 20 22 53 68 6f 77 20 41 | 6c 6c 20 49 73 73 75 65 | "Show A|ll Issue|
|000022b0| 73 22 20 26 20 72 65 74 | 75 72 6e 20 26 20 22 2d |s" & ret|urn & "-|
|000022c0| 22 20 26 20 72 65 74 75 | 72 6e 0d 70 75 74 20 69 |" & retu|rn.put i|
|000022d0| 74 20 26 20 61 6c 6c 57 | 69 6e 64 6f 77 73 20 69 |t & allW|indows i|
|000022e0| 6e 74 6f 20 6d 65 6e 75 | 20 22 57 69 6e 64 6f 77 |nto menu| "Window|
|000022f0| 73 22 0d 69 66 20 74 68 | 65 72 65 20 69 73 20 61 |s".if th|ere is a|
|00002300| 20 6d 65 6e 75 69 74 65 | 6d 20 35 20 6f 66 20 6d | menuite|m 5 of m|
|00002310| 65 6e 75 20 22 77 69 6e | 64 6f 77 73 22 20 20 74 |enu "win|dows" t|
|00002320| 68 65 6e 20 73 65 74 20 | 63 68 65 63 6b 6d 61 72 |hen set |checkmar|
|00002330| 6b 20 6f 66 20 6d 65 6e | 75 69 74 65 6d 20 35 20 |k of men|uitem 5 |
|00002340| 6f 66 20 6d 65 6e 75 20 | 22 57 69 6e 64 6f 77 73 |of menu |"Windows|
|00002350| 22 20 74 6f 20 74 72 75 | 65 0d 73 65 74 20 63 68 |" to tru|e.set ch|
|00002360| 65 63 6b 6d 61 72 6b 20 | 6f 66 20 6d 65 6e 75 69 |eckmark |of menui|
|00002370| 74 65 6d 20 31 20 6f 66 | 20 6d 65 6e 75 20 22 57 |tem 1 of| menu "W|
|00002380| 69 6e 64 6f 77 73 22 20 | 74 6f 20 28 74 68 65 72 |indows" |to (ther|
|00002390| 65 20 69 73 20 61 20 77 | 69 6e 64 6f 77 20 22 64 |e is a w|indow "d|
|000023a0| 65 76 65 6c 6f 70 20 53 | 6e 61 70 73 68 6f 74 73 |evelop S|napshots|
|000023b0| 22 29 0d 73 65 74 20 6d | 65 6e 75 4d 73 67 20 6f |").set m|enuMsg o|
|000023c0| 66 20 6d 65 6e 75 69 74 | 65 6d 20 31 20 6f 66 20 |f menuit|em 1 of |
|000023d0| 6d 65 6e 75 20 22 57 69 | 6e 64 6f 77 73 22 20 74 |menu "Wi|ndows" t|
|000023e0| 6f 20 22 73 68 6f 77 53 | 6e 61 70 73 68 6f 74 73 |o "showS|napshots|
|000023f0| 22 0d 73 65 74 20 6d 65 | 6e 75 4d 73 67 20 6f 66 |".set me|nuMsg of|
|00002400| 20 6d 65 6e 75 69 74 65 | 6d 20 33 20 6f 66 20 6d | menuite|m 3 of m|
|00002410| 65 6e 75 20 22 57 69 6e | 64 6f 77 73 22 20 74 6f |enu "Win|dows" to|
|00002420| 20 22 73 68 6f 77 41 6c | 6c 69 73 73 75 65 73 22 | "showAl|lissues"|
|00002430| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 75 70 64 61 |.end if.|end upda|
|00002440| 74 65 57 69 6e 64 6f 77 | 73 0d 0d 6f 6e 20 67 6f |teWindow|s..on go|
|00002450| 46 69 6e 64 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |Find.set| cursor |
|00002460| 74 6f 20 77 61 74 63 68 | 0d 6c 6f 63 6b 20 73 63 |to watch|.lock sc|
|00002470| 72 65 65 6e 0d 69 66 20 | 74 68 65 72 65 20 69 73 |reen.if |there is|
|00002480| 20 61 20 77 69 6e 64 6f | 77 20 22 64 65 76 65 6c | a windo|w "devel|
|00002490| 6f 70 20 46 69 6e 64 22 | 20 74 68 65 6e 0d 73 68 |op Find"| then.sh|
|000024a0| 6f 77 20 77 69 6e 64 6f | 77 20 22 44 65 76 65 6c |ow windo|w "Devel|
|000024b0| 6f 70 20 46 69 6e 64 22 | 0d 65 6c 73 65 0d 67 6f |op Find"|.else.go|
|000024c0| 20 73 74 61 63 6b 20 22 | 44 65 76 65 6c 6f 70 20 | stack "|Develop |
|000024d0| 46 69 6e 64 22 20 69 6e | 20 6e 65 77 20 77 69 6e |Find" in| new win|
|000024e0| 64 6f 77 0d 69 66 20 74 | 68 65 20 72 65 73 75 6c |dow.if t|he resul|
|000024f0| 74 20 3d 20 22 63 61 6e | 63 65 6c 22 20 74 68 65 |t = "can|cel" the|
|00002500| 6e 20 65 78 69 74 20 67 | 6f 46 69 6e 64 0d 65 6c |n exit g|oFind.el|
|00002510| 73 65 20 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |se if th|e result|
|00002520| 20 ad 20 22 22 20 74 68 | 65 6e 20 61 6e 73 77 65 | . "" th|en answe|
|00002530| 72 20 74 68 65 20 72 65 | 73 75 6c 74 0d 65 6e 64 |r the re|sult.end|
|00002540| 20 69 66 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 | if.unlo|ck scree|
|00002550| 6e 0d 65 6e 64 20 67 6f | 46 69 6e 64 0d 0d 6f 6e |n.end go|Find..on|
|00002560| 20 67 6f 44 49 41 0d 67 | 6c 6f 62 61 6c 20 77 68 | goDIA.g|lobal wh|
|00002570| 65 72 65 53 4b 42 0d 69 | 66 20 74 68 65 72 65 20 |ereSKB.i|f there |
|00002580| 69 73 20 61 20 77 69 6e | 64 6f 77 20 22 44 65 76 |is a win|dow "Dev|
|00002590| 65 6c 6f 70 65 72 20 49 | 6e 66 6f 20 41 73 73 69 |eloper I|nfo Assi|
|000025a0| 73 74 61 6e 74 22 20 74 | 68 65 6e 20 2d 2d 20 49 |stant" t|hen -- I|
|000025b0| 46 20 41 4c 52 45 41 44 | 59 20 4f 50 45 4e 0d 73 |F ALREAD|Y OPEN.s|
|000025c0| 68 6f 77 20 77 69 6e 64 | 6f 77 20 22 44 65 76 65 |how wind|ow "Deve|
|000025d0| 6c 6f 70 65 72 20 49 6e | 66 6f 20 41 73 73 69 73 |loper In|fo Assis|
|000025e0| 74 61 6e 74 22 0d 65 6c | 73 65 20 69 66 20 77 68 |tant".el|se if wh|
|000025f0| 65 72 65 53 4b 42 20 69 | 73 20 6e 6f 74 20 65 6d |ereSKB i|s not em|
|00002600| 70 74 79 20 74 68 65 6e | 0d 67 6f 20 77 68 65 72 |pty then|.go wher|
|00002610| 65 53 4b 42 20 69 6e 20 | 61 20 6e 65 77 20 77 69 |eSKB in |a new wi|
|00002620| 6e 64 6f 77 0d 65 6c 73 | 65 0d 70 75 74 20 63 75 |ndow.els|e.put cu|
|00002630| 72 72 46 6f 6c 64 65 72 | 50 61 74 68 28 29 20 26 |rrFolder|Path() &|
|00002640| 20 22 44 65 76 65 6c 6f | 70 65 72 20 49 6e 66 6f | "Develo|per Info|
|00002650| 20 41 73 73 69 73 74 61 | 6e 74 22 20 69 6e 74 6f | Assista|nt" into|
|00002660| 20 6c 6f 63 61 6c 4e 61 | 6d 65 0d 69 66 20 74 68 | localNa|me.if th|
|00002670| 65 72 65 20 69 73 20 61 | 20 66 69 6c 65 20 6c 6f |ere is a| file lo|
|00002680| 63 61 6c 4e 61 6d 65 20 | 74 68 65 6e 20 2d 2d 20 |calName |then -- |
|00002690| 49 4e 20 43 55 52 52 45 | 4e 54 20 46 4f 4c 44 45 |IN CURRE|NT FOLDE|
|000026a0| 52 0d 67 6f 20 73 74 61 | 63 6b 20 6c 6f 63 61 6c |R.go sta|ck local|
|000026b0| 4e 61 6d 65 20 69 6e 20 | 6e 65 77 20 77 69 6e 64 |Name in |new wind|
|000026c0| 6f 77 0d 65 6c 73 65 20 | 67 6f 20 73 74 61 63 6b |ow.else |go stack|
|000026d0| 20 22 44 65 76 65 6c 6f | 70 65 72 20 49 6e 66 6f | "Develo|per Info|
|000026e0| 20 41 73 73 69 73 74 61 | 6e 74 22 20 69 6e 20 6e | Assista|nt" in n|
|000026f0| 65 77 20 77 69 6e 64 6f | 77 20 2d 2d 20 4c 41 53 |ew windo|w -- LAS|
|00002700| 54 20 52 45 53 4f 52 54 | 20 41 53 4b 20 57 48 45 |T RESORT| ASK WHE|
|00002710| 52 45 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 67 6f |RE.end i|f.end go|
|00002720| 44 49 41 0d 0d 6f 6e 20 | 73 68 6f 77 41 6c 6c 69 |DIA..on |showAlli|
|00002730| 73 73 75 65 73 0d 67 6c | 6f 62 61 6c 20 44 50 62 |ssues.gl|obal DPb|
|00002740| 65 65 6e 48 65 72 65 0d | 73 65 74 20 63 75 72 73 |eenHere.|set curs|
|00002750| 6f 72 20 74 6f 20 77 61 | 74 63 68 0d 70 75 74 20 |or to wa|tch.put |
|00002760| 22 22 20 69 6e 74 6f 20 | 44 50 62 65 65 6e 48 65 |"" into |DPbeenHe|
|00002770| 72 65 0d 70 75 74 20 22 | 64 65 76 65 6c 6f 70 20 |re.put "|develop |
|00002780| 49 6e 64 65 78 2c 64 65 | 76 65 6c 6f 70 20 49 73 |Index,de|velop Is|
|00002790| 73 75 65 20 31 2c 64 65 | 76 65 6c 6f 70 20 49 73 |sue 1,de|velop Is|
|000027a0| 73 75 65 20 32 2c 64 65 | 76 65 6c 6f 70 20 49 73 |sue 2,de|velop Is|
|000027b0| 73 75 65 20 33 2c 64 65 | 76 65 6c 6f 70 20 49 73 |sue 3,de|velop Is|
|000027c0| 73 75 65 20 34 2c 22 20 | 26 20 c2 0d 22 64 65 76 |sue 4," |& .."dev|
|000027d0| 65 6c 6f 70 20 49 73 73 | 75 65 20 35 2c 64 65 76 |elop Iss|ue 5,dev|
|000027e0| 65 6c 6f 70 20 49 73 73 | 75 65 20 36 2c 64 65 76 |elop Iss|ue 6,dev|
|000027f0| 65 6c 6f 70 20 49 73 73 | 75 65 20 37 2c 64 65 76 |elop Iss|ue 7,dev|
|00002800| 65 6c 6f 70 20 49 73 73 | 75 65 20 38 2c 64 65 76 |elop Iss|ue 8,dev|
|00002810| 65 6c 6f 70 20 49 73 73 | 75 65 20 39 2c 22 20 26 |elop Iss|ue 9," &|
|00002820| 20 c2 0d 22 64 65 76 65 | 6c 6f 70 20 49 73 73 75 | .."deve|lop Issu|
|00002830| 65 20 31 30 22 20 69 6e | 74 6f 20 74 68 65 57 69 |e 10" in|to theWi|
|00002840| 6e 64 6f 77 73 0d 6c 6f | 63 6b 20 73 63 72 65 65 |ndows.lo|ck scree|
|00002850| 6e 0d 69 66 20 74 68 65 | 72 65 20 69 73 20 61 20 |n.if the|re is a |
|00002860| 77 69 6e 64 6f 77 20 22 | 64 65 76 65 6c 6f 70 20 |window "|develop |
|00002870| 43 6f 6e 74 65 6e 74 73 | 22 20 74 68 65 6e 0d 73 |Contents|" then.s|
|00002880| 68 6f 77 20 77 69 6e 64 | 6f 77 20 22 64 65 76 65 |how wind|ow "deve|
|00002890| 6c 6f 70 20 43 6f 6e 74 | 65 6e 74 73 22 0d 65 6c |lop Cont|ents".el|
|000028a0| 73 65 0d 67 6f 20 73 74 | 61 63 6b 20 22 64 65 76 |se.go st|ack "dev|
|000028b0| 65 6c 6f 70 20 43 6f 6e | 74 65 6e 74 73 22 20 69 |elop Con|tents" i|
|000028c0| 6e 20 6e 65 77 20 77 69 | 6e 64 6f 77 0d 69 66 20 |n new wi|ndow.if |
|000028d0| 74 68 65 20 72 65 73 75 | 6c 74 20 3d 20 22 63 61 |the resu|lt = "ca|
|000028e0| 6e 63 65 6c 22 20 74 68 | 65 6e 20 65 78 69 74 20 |ncel" th|en exit |
|000028f0| 73 68 6f 77 41 6c 6c 69 | 73 73 75 65 73 0d 65 6c |showAlli|ssues.el|
|00002900| 73 65 20 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |se if th|e result|
|00002910| 20 ad 20 22 22 20 74 68 | 65 6e 20 61 6e 73 77 65 | . "" th|en answe|
|00002920| 72 20 74 68 65 20 72 65 | 73 75 6c 74 0d 65 6e 64 |r the re|sult.end|
|00002930| 20 69 66 0d 73 65 74 20 | 72 65 63 74 20 6f 66 20 | if.set |rect of |
|00002940| 63 64 20 77 69 6e 64 6f | 77 20 74 6f 20 28 22 30 |cd windo|w to ("0|
|00002950| 2c 33 38 2c 35 31 32 2c | 22 20 26 20 69 74 65 6d |,38,512,|" & item|
|00002960| 20 34 20 6f 66 20 74 68 | 65 20 73 63 72 65 65 6e | 4 of th|e screen|
|00002970| 52 65 63 74 29 0d 75 6e | 6c 6f 63 6b 20 73 63 72 |Rect).un|lock scr|
|00002980| 65 65 6e 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |een.repe|at with |
|00002990| 69 20 3d 20 31 20 74 6f | 20 74 68 65 20 6e 75 6d |i = 1 to| the num|
|000029a0| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 69 6e 20 |ber of i|tems in |
|000029b0| 74 68 65 57 69 6e 64 6f | 77 73 0d 6c 6f 63 6b 20 |theWindo|ws.lock |
|000029c0| 73 63 72 65 65 6e 0d 69 | 66 20 74 68 65 72 65 20 |screen.i|f there |
|000029d0| 69 73 20 61 20 77 69 6e | 64 6f 77 20 28 69 74 65 |is a win|dow (ite|
|000029e0| 6d 20 69 20 6f 66 20 74 | 68 65 77 69 6e 64 6f 77 |m i of t|hewindow|
|000029f0| 73 29 20 74 68 65 6e 0d | 73 68 6f 77 20 77 69 6e |s) then.|show win|
|00002a00| 64 6f 77 20 28 69 74 65 | 6d 20 69 20 6f 66 20 74 |dow (ite|m i of t|
|00002a10| 68 65 77 69 6e 64 6f 77 | 73 29 0d 65 6c 73 65 0d |hewindow|s).else.|
|00002a20| 67 6f 20 73 74 61 63 6b | 20 28 69 74 65 6d 20 69 |go stack| (item i|
|00002a30| 20 6f 66 20 74 68 65 77 | 69 6e 64 6f 77 73 29 20 | of thew|indows) |
|00002a40| 69 6e 20 6e 65 77 20 77 | 69 6e 64 6f 77 0d 69 66 |in new w|indow.if|
|00002a50| 20 74 68 65 20 72 65 73 | 75 6c 74 20 3d 20 22 63 | the res|ult = "c|
|00002a60| 61 6e 63 65 6c 22 20 74 | 68 65 6e 20 65 78 69 74 |ancel" t|hen exit|
|00002a70| 20 73 68 6f 77 41 6c 6c | 69 73 73 75 65 73 0d 65 | showAll|issues.e|
|00002a80| 6c 73 65 20 69 66 20 74 | 68 65 20 72 65 73 75 6c |lse if t|he resul|
|00002a90| 74 20 ad 20 22 22 20 74 | 68 65 6e 20 61 6e 73 77 |t . "" t|hen answ|
|00002aa0| 65 72 20 74 68 65 20 72 | 65 73 75 6c 74 0d 65 6e |er the r|esult.en|
|00002ab0| 64 20 69 66 0d 67 65 74 | 20 74 68 65 20 72 65 73 |d if.get| the res|
|00002ac0| 75 6c 74 0d 69 66 20 69 | 74 20 3d 20 22 63 61 6e |ult.if i|t = "can|
|00002ad0| 63 65 6c 22 20 74 68 65 | 6e 20 65 78 69 74 20 73 |cel" the|n exit s|
|00002ae0| 68 6f 77 41 6c 6c 69 73 | 73 75 65 73 0d 69 66 20 |howAllis|sues.if |
|00002af0| 69 74 20 ad 20 22 22 20 | 74 68 65 6e 0d 61 6e 73 |it . "" |then.ans|
|00002b00| 77 65 72 20 69 74 0d 65 | 78 69 74 20 73 68 6f 77 |wer it.e|xit show|
|00002b10| 41 6c 6c 69 73 73 75 65 | 73 0d 65 6e 64 20 69 66 |Allissue|s.end if|
|00002b20| 0d 69 66 20 74 68 65 72 | 65 20 69 73 20 61 20 77 |.if ther|e is a w|
|00002b30| 69 6e 64 6f 77 20 28 69 | 74 65 6d 20 69 20 6f 66 |indow (i|tem i of|
|00002b40| 20 74 68 65 77 69 6e 64 | 6f 77 73 29 20 74 68 65 | thewind|ows) the|
|00002b50| 6e 20 73 68 6f 77 20 77 | 69 6e 64 6f 77 20 28 69 |n show w|indow (i|
|00002b60| 74 65 6d 20 69 20 6f 66 | 20 74 68 65 77 69 6e 64 |tem i of| thewind|
|00002b70| 6f 77 73 29 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |ows).rep|eat unti|
|00002b80| 6c 20 6e 6f 74 20 74 68 | 65 20 6c 6f 63 6b 73 63 |l not th|e locksc|
|00002b90| 72 65 65 6e 0d 75 6e 6c | 6f 63 6b 20 73 63 72 65 |reen.unl|ock scre|
|00002ba0| 65 6e 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e |en.end r|epeat.en|
|00002bb0| 64 20 72 65 70 65 61 74 | 0d 75 70 64 61 74 65 77 |d repeat|.updatew|
|00002bc0| 69 6e 64 6f 77 73 0d 65 | 6e 64 20 73 68 6f 77 41 |indows.e|nd showA|
|00002bd0| 6c 6c 69 73 73 75 65 73 | 0d 0d 6f 6e 20 67 6f 49 |llissues|..on goI|
|00002be0| 73 73 75 65 20 69 73 73 | 75 65 0d 73 65 74 20 63 |ssue iss|ue.set c|
|00002bf0| 75 72 73 6f 72 20 74 6f | 20 77 61 74 63 68 0d 69 |ursor to| watch.i|
|00002c00| 66 20 69 73 73 75 65 20 | 3d 20 22 22 20 74 68 65 |f issue |= "" the|
|00002c10| 6e 0d 61 73 6b 20 22 4f | 70 65 6e 20 69 73 73 75 |n.ask "O|pen issu|
|00002c20| 65 20 6e 75 6d 62 65 72 | 3a 22 0d 69 66 20 69 74 |e number|:".if it|
|00002c30| 20 3d 20 22 22 20 74 68 | 65 6e 20 72 65 74 75 72 | = "" th|en retur|
|00002c40| 6e 20 22 43 61 6e 63 65 | 6c 6c 65 64 2e 22 0d 70 |n "Cance|lled.".p|
|00002c50| 75 74 20 69 74 20 69 6e | 74 6f 20 69 73 73 75 65 |ut it in|to issue|
|00002c60| 0d 65 6e 64 20 69 66 0d | 73 65 74 20 63 75 72 73 |.end if.|set curs|
|00002c70| 6f 72 20 74 6f 20 77 61 | 74 63 68 0d 69 66 20 69 |or to wa|tch.if i|
|00002c80| 73 73 75 65 20 69 73 20 | 6e 6f 74 20 69 6e 20 69 |ssue is |not in i|
|00002c90| 73 73 75 65 73 28 29 20 | 74 68 65 6e 0d 61 6e 73 |ssues() |then.ans|
|00002ca0| 77 65 72 20 22 4e 6f 20 | 73 75 63 68 20 69 73 73 |wer "No |such iss|
|00002cb0| 75 65 2e 22 0d 72 65 74 | 75 72 6e 20 22 4e 6f 20 |ue.".ret|urn "No |
|00002cc0| 73 75 63 68 20 69 73 73 | 75 65 2e 22 0d 65 6e 64 |such iss|ue.".end|
|00002cd0| 20 69 66 0d 0d 69 66 20 | 74 72 61 70 47 6f 54 6f | if..if |trapGoTo|
|00002ce0| 49 73 73 75 65 28 69 73 | 73 75 65 29 20 69 73 20 |Issue(is|sue) is |
|00002cf0| 74 72 75 65 20 74 68 65 | 6e 20 65 78 69 74 20 67 |true the|n exit g|
|00002d00| 6f 49 73 73 75 65 0d 0d | 69 66 20 74 68 65 72 65 |oIssue..|if there|
|00002d10| 20 69 73 20 61 20 77 69 | 6e 64 6f 77 20 28 22 64 | is a wi|ndow ("d|
|00002d20| 65 76 65 6c 6f 70 20 69 | 73 73 75 65 22 20 26 26 |evelop i|ssue" &&|
|00002d30| 20 69 73 73 75 65 29 20 | 74 68 65 6e 0d 73 68 6f | issue) |then.sho|
|00002d40| 77 20 77 69 6e 64 6f 77 | 20 28 22 64 65 76 65 6c |w window| ("devel|
|00002d50| 6f 70 20 69 73 73 75 65 | 22 20 26 26 20 69 73 73 |op issue|" && iss|
|00002d60| 75 65 29 0d 65 6c 73 65 | 0d 61 6e 73 77 65 72 20 |ue).else|.answer |
|00002d70| 22 4f 70 65 6e 20 69 73 | 73 75 65 22 20 26 26 20 |"Open is|sue" && |
|00002d80| 69 73 73 75 65 20 26 26 | 20 22 69 6e 20 74 68 65 |issue &&| "in the|
|00002d90| 20 63 75 72 72 65 6e 74 | 20 77 69 6e 64 6f 77 20 | current| window |
|00002da0| 6f 72 20 69 6e 20 61 20 | 6e 65 77 20 77 69 6e 64 |or in a |new wind|
|00002db0| 6f 77 3f 22 20 c2 0d 77 | 69 74 68 20 22 43 61 6e |ow?" ..w|ith "Can|
|00002dc0| 63 65 6c 22 20 6f 72 20 | 22 43 75 72 72 65 6e 74 |cel" or |"Current|
|00002dd0| 22 20 6f 72 20 22 4e 65 | 77 22 0d 69 66 20 69 74 |" or "Ne|w".if it|
|00002de0| 20 3d 20 22 63 61 6e 63 | 65 6c 22 20 74 68 65 6e | = "canc|el" then|
|00002df0| 20 72 65 74 75 72 6e 20 | 22 43 61 6e 63 65 6c 6c | return |"Cancell|
|00002e00| 65 64 2e 22 0d 69 66 20 | 69 74 20 3d 20 22 63 75 |ed.".if |it = "cu|
|00002e10| 72 72 65 6e 74 22 20 74 | 68 65 6e 0d 67 6f 20 73 |rrent" t|hen.go s|
|00002e20| 74 61 63 6b 20 28 22 64 | 65 76 65 6c 6f 70 20 69 |tack ("d|evelop i|
|00002e30| 73 73 75 65 22 20 26 26 | 20 69 73 73 75 65 29 0d |ssue" &&| issue).|
|00002e40| 65 6c 73 65 20 67 6f 20 | 73 74 61 63 6b 20 28 22 |else go |stack ("|
|00002e50| 64 65 76 65 6c 6f 70 20 | 69 73 73 75 65 22 20 26 |develop |issue" &|
|00002e60| 26 20 69 73 73 75 65 29 | 20 69 6e 20 6e 65 77 20 |& issue)| in new |
|00002e70| 77 69 6e 64 6f 77 0d 69 | 66 20 74 68 65 20 72 65 |window.i|f the re|
|00002e80| 73 75 6c 74 20 3d 20 22 | 63 61 6e 63 65 6c 22 20 |sult = "|cancel" |
|00002e90| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 22 43 61 6e |then ret|urn "Can|
|00002ea0| 63 65 6c 6c 65 64 2e 22 | 0d 65 6c 73 65 20 69 66 |celled."|.else if|
|00002eb0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 ad 20 22 22 | the res|ult . ""|
|00002ec0| 20 74 68 65 6e 20 61 6e | 73 77 65 72 20 74 68 65 | then an|swer the|
|00002ed0| 20 72 65 73 75 6c 74 0d | 65 6e 64 20 69 66 0d 65 | result.|end if.e|
|00002ee0| 6e 64 20 67 6f 49 73 73 | 75 65 0d 0d 6f 6e 20 67 |nd goIss|ue..on g|
|00002ef0| 6f 49 6e 64 65 78 0d 73 | 65 74 20 63 75 72 73 6f |oIndex.s|et curso|
|00002f00| 72 20 74 6f 20 77 61 74 | 63 68 0d 6c 6f 63 6b 20 |r to wat|ch.lock |
|00002f10| 73 63 72 65 65 6e 0d 69 | 66 20 74 68 65 72 65 20 |screen.i|f there |
|00002f20| 69 73 20 61 20 77 69 6e | 64 6f 77 20 22 64 65 76 |is a win|dow "dev|
|00002f30| 65 6c 6f 70 20 69 6e 64 | 65 78 22 20 74 68 65 6e |elop ind|ex" then|
|00002f40| 0d 73 68 6f 77 20 77 69 | 6e 64 6f 77 20 22 64 65 |.show wi|ndow "de|
|00002f50| 76 65 6c 6f 70 20 69 6e | 64 65 78 22 0d 65 6c 73 |velop in|dex".els|
|00002f60| 65 0d 67 6f 20 63 64 20 | 22 a5 41 a5 22 20 6f 66 |e.go cd |".A." of|
|00002f70| 20 73 74 61 63 6b 20 22 | 64 65 76 65 6c 6f 70 20 | stack "|develop |
|00002f80| 49 6e 64 65 78 22 20 69 | 6e 20 6e 65 77 20 77 69 |Index" i|n new wi|
|00002f90| 6e 64 6f 77 0d 69 66 20 | 74 68 65 20 72 65 73 75 |ndow.if |the resu|
|00002fa0| 6c 74 20 3d 20 22 63 61 | 6e 63 65 6c 22 20 74 68 |lt = "ca|ncel" th|
|00002fb0| 65 6e 20 65 78 69 74 20 | 67 6f 49 6e 64 65 78 0d |en exit |goIndex.|
|00002fc0| 65 6c 73 65 20 69 66 20 | 74 68 65 20 72 65 73 75 |else if |the resu|
|00002fd0| 6c 74 20 ad 20 22 22 20 | 74 68 65 6e 20 61 6e 73 |lt . "" |then ans|
|00002fe0| 77 65 72 20 74 68 65 20 | 72 65 73 75 6c 74 0d 65 |wer the |result.e|
|00002ff0| 6e 64 20 69 66 0d 75 6e | 6c 6f 63 6b 20 73 63 72 |nd if.un|lock scr|
|00003000| 65 65 6e 0d 65 6e 64 20 | 67 6f 49 6e 64 65 78 0d |een.end |goIndex.|
|00003010| 0d 6f 6e 20 67 6f 54 4f | 43 0d 73 65 74 20 63 75 |.on goTO|C.set cu|
|00003020| 72 73 6f 72 20 74 6f 20 | 77 61 74 63 68 0d 6c 6f |rsor to |watch.lo|
|00003030| 63 6b 20 73 63 72 65 65 | 6e 0d 69 66 20 74 68 65 |ck scree|n.if the|
|00003040| 72 65 20 69 73 20 61 20 | 77 69 6e 64 6f 77 20 22 |re is a |window "|
|00003050| 64 65 76 65 6c 6f 70 20 | 43 6f 6e 74 65 6e 74 73 |develop |Contents|
|00003060| 22 20 74 68 65 6e 0d 73 | 68 6f 77 20 77 69 6e 64 |" then.s|how wind|
|00003070| 6f 77 20 22 64 65 76 65 | 6c 6f 70 20 43 6f 6e 74 |ow "deve|lop Cont|
|00003080| 65 6e 74 73 22 0d 65 6c | 73 65 0d 67 6f 20 73 74 |ents".el|se.go st|
|00003090| 61 63 6b 20 22 64 65 76 | 65 6c 6f 70 20 43 6f 6e |ack "dev|elop Con|
|000030a0| 74 65 6e 74 73 22 20 69 | 6e 20 6e 65 77 20 77 69 |tents" i|n new wi|
|000030b0| 6e 64 6f 77 0d 69 66 20 | 74 68 65 20 72 65 73 75 |ndow.if |the resu|
|000030c0| 6c 74 20 3d 20 22 63 61 | 6e 63 65 6c 22 20 74 68 |lt = "ca|ncel" th|
|000030d0| 65 6e 20 65 78 69 74 20 | 67 6f 54 4f 43 0d 65 6c |en exit |goTOC.el|
|000030e0| 73 65 20 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |se if th|e result|
|000030f0| 20 ad 20 22 22 20 74 68 | 65 6e 20 61 6e 73 77 65 | . "" th|en answe|
|00003100| 72 20 74 68 65 20 72 65 | 73 75 6c 74 0d 65 6e 64 |r the re|sult.end|
|00003110| 20 69 66 0d 75 6e 6c 6f | 63 6b 20 73 63 72 65 65 | if.unlo|ck scree|
|00003120| 6e 0d 65 6e 64 20 67 6f | 54 4f 43 0d 0d 6f 6e 20 |n.end go|TOC..on |
|00003130| 67 6f 48 65 6c 70 0d 73 | 65 74 20 63 75 72 73 6f |goHelp.s|et curso|
|00003140| 72 20 74 6f 20 77 61 74 | 63 68 0d 6c 6f 63 6b 20 |r to wat|ch.lock |
|00003150| 73 63 72 65 65 6e 0d 69 | 66 20 74 68 65 72 65 20 |screen.i|f there |
|00003160| 69 73 20 61 20 77 69 6e | 64 6f 77 20 22 64 65 76 |is a win|dow "dev|
|00003170| 65 6c 6f 70 20 68 65 6c | 70 22 20 74 68 65 6e 0d |elop hel|p" then.|
|00003180| 73 68 6f 77 20 77 69 6e | 64 6f 77 20 22 64 65 76 |show win|dow "dev|
|00003190| 65 6c 6f 70 20 48 65 6c | 70 22 0d 65 6c 73 65 0d |elop Hel|p".else.|
|000031a0| 67 6f 20 73 74 61 63 6b | 20 22 64 65 76 65 6c 6f |go stack| "develo|
|000031b0| 70 20 48 65 6c 70 22 20 | 69 6e 20 6e 65 77 20 77 |p Help" |in new w|
|000031c0| 69 6e 64 6f 77 0d 69 66 | 20 74 68 65 20 72 65 73 |indow.if| the res|
|000031d0| 75 6c 74 20 3d 20 22 63 | 61 6e 63 65 6c 22 20 74 |ult = "c|ancel" t|
|000031e0| 68 65 6e 20 65 78 69 74 | 20 67 6f 48 65 6c 70 0d |hen exit| goHelp.|
|000031f0| 65 6c 73 65 20 69 66 20 | 74 68 65 20 72 65 73 75 |else if |the resu|
|00003200| 6c 74 20 ad 20 22 22 20 | 74 68 65 6e 20 61 6e 73 |lt . "" |then ans|
|00003210| 77 65 72 20 74 68 65 20 | 72 65 73 75 6c 74 0d 65 |wer the |result.e|
|00003220| 6e 64 20 69 66 0d 75 6e | 6c 6f 63 6b 20 73 63 72 |nd if.un|lock scr|
|00003230| 65 65 6e 0d 65 6e 64 20 | 67 6f 48 65 6c 70 0d 0d |een.end |goHelp..|
|00003240| 6f 6e 20 70 72 69 6e 74 | 50 61 67 65 73 20 73 2c |on print|Pages s,|
|00003250| 65 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |e.set cu|rsor to |
|00003260| 77 61 74 63 68 0d 67 65 | 74 20 74 68 65 20 73 68 |watch.ge|t the sh|
|00003270| 6f 72 74 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |ort name| of this|
|00003280| 20 73 74 61 63 6b 0d 69 | 66 20 22 64 65 76 65 6c | stack.i|f "devel|
|00003290| 6f 70 20 69 73 73 75 65 | 20 22 20 69 73 20 6e 6f |op issue| " is no|
|000032a0| 74 20 69 6e 20 69 74 20 | 74 68 65 6e 0d 61 73 6b |t in it |then.ask|
|000032b0| 20 22 57 68 69 63 68 20 | 64 65 76 65 6c 6f 70 20 | "Which |develop |
|000032c0| 49 73 73 75 65 22 20 77 | 69 74 68 20 31 0d 67 6f |Issue" w|ith 1.go|
|000032d0| 49 73 73 75 65 28 69 74 | 29 0d 69 66 20 74 68 65 |Issue(it|).if the|
|000032e0| 20 72 65 73 75 6c 74 20 | ad 20 22 22 20 74 68 65 | result |. "" the|
|000032f0| 6e 0d 72 65 74 75 72 6e | 20 74 68 65 20 72 65 73 |n.return| the res|
|00003300| 75 6c 74 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ult.end |if.end i|
|00003310| 66 0d 70 75 74 20 6c 61 | 73 74 20 77 6f 72 64 20 |f.put la|st word |
|00003320| 6f 66 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |of the s|hort nam|
|00003330| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00003340| 69 6e 74 6f 20 69 73 73 | 75 65 0d 69 66 20 73 20 |into iss|ue.if s |
|00003350| 3d 20 22 22 20 74 68 65 | 6e 0d 70 75 74 20 77 6f |= "" the|n.put wo|
|00003360| 72 64 20 31 20 6f 66 20 | 66 6c 64 20 22 70 61 67 |rd 1 of |fld "pag|
|00003370| 65 4e 75 6d 62 65 72 22 | 20 69 6e 74 6f 20 73 0d |eNumber"| into s.|
|00003380| 61 73 6b 20 22 50 72 69 | 6e 74 20 70 61 67 65 28 |ask "Pri|nt page(|
|00003390| 73 29 3a 22 20 77 69 74 | 68 20 73 20 26 26 20 22 |s):" wit|h s && "|
|000033a0| 74 6f 22 20 26 26 20 73 | 0d 69 66 20 69 74 20 3d |to" && s|.if it =|
|000033b0| 20 22 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 | "" then| return |
|000033c0| 22 63 61 6e 63 65 6c 22 | 0d 70 75 74 20 66 69 72 |"cancel"|.put fir|
|000033d0| 73 74 20 77 6f 72 64 20 | 6f 66 20 69 74 20 69 6e |st word |of it in|
|000033e0| 74 6f 20 73 0d 70 75 74 | 20 6c 61 73 74 20 77 6f |to s.put| last wo|
|000033f0| 72 64 20 6f 66 20 69 74 | 20 69 6e 74 6f 20 65 0d |rd of it| into e.|
|00003400| 69 66 20 73 20 69 73 20 | 6e 6f 74 20 61 20 6e 75 |if s is |not a nu|
|00003410| 6d 62 65 72 20 6f 72 20 | 65 20 69 73 20 6e 6f 74 |mber or |e is not|
|00003420| 20 61 20 6e 75 6d 62 65 | 72 20 74 68 65 6e 0d 61 | a numbe|r then.a|
|00003430| 6e 73 77 65 72 20 22 49 | 6e 76 61 6c 69 64 20 70 |nswer "I|nvalid p|
|00003440| 61 67 65 20 6e 75 6d 62 | 65 72 20 70 72 6f 76 69 |age numb|er provi|
|00003450| 64 65 64 2e 22 0d 72 65 | 74 75 72 6e 20 22 49 6e |ded.".re|turn "In|
|00003460| 76 61 6c 69 64 20 70 61 | 67 65 20 6e 75 6d 62 65 |valid pa|ge numbe|
|00003470| 72 20 70 72 6f 76 69 64 | 65 64 2e 22 0d 65 6e 64 |r provid|ed.".end|
|00003480| 20 69 66 0d 65 6e 64 20 | 69 66 0d 69 66 20 65 20 | if.end |if.if e |
|00003490| 3d 20 22 22 20 74 68 65 | 6e 20 70 75 74 20 73 20 |= "" the|n put s |
|000034a0| 69 6e 74 6f 20 65 0d 2d | 2d 20 47 45 54 20 53 4f |into e.-|- GET SO|
|000034b0| 52 54 41 42 4c 45 20 4e | 41 4d 45 0d 69 66 20 73 |RTABLE N|AME.if s|
|000034c0| 20 3c 20 31 20 74 68 65 | 6e 20 70 75 74 20 22 20 | < 1 the|n put " |
|000034d0| 20 20 22 20 62 65 66 6f | 72 65 20 73 0d 65 6c 73 | " befo|re s.els|
|000034e0| 65 20 69 66 20 73 20 3c | 20 31 30 20 74 68 65 6e |e if s <| 10 then|
|000034f0| 20 70 75 74 20 22 20 20 | 22 20 62 65 66 6f 72 65 | put " |" before|
|00003500| 20 73 0d 65 6c 73 65 20 | 69 66 20 73 20 3c 20 31 | s.else |if s < 1|
|00003510| 30 30 20 74 68 65 6e 20 | 70 75 74 20 22 20 22 20 |00 then |put " " |
|00003520| 62 65 66 6f 72 65 20 73 | 0d 0d 70 75 73 68 20 63 |before s|..push c|
|00003530| 64 0d 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 73 65 |d.lock s|creen.se|
|00003540| 74 20 6c 6f 63 6b 6d 65 | 73 73 61 67 65 73 20 74 |t lockme|ssages t|
|00003550| 6f 20 74 72 75 65 0d 67 | 6f 20 63 64 20 28 22 70 |o true.g|o cd ("p|
|00003560| 61 67 65 22 20 26 26 20 | 73 29 20 6f 66 20 73 74 |age" && |s) of st|
|00003570| 61 63 6b 20 28 22 64 65 | 76 65 6c 6f 70 20 69 73 |ack ("de|velop is|
|00003580| 73 75 65 22 20 26 26 20 | 69 73 73 75 65 29 0d 69 |sue" && |issue).i|
|00003590| 66 20 74 68 65 20 72 65 | 73 75 6c 74 20 ad 20 22 |f the re|sult . "|
|000035a0| 22 20 74 68 65 6e 0d 61 | 6e 73 77 65 72 20 22 50 |" then.a|nswer "P|
|000035b0| 61 67 65 22 20 26 26 20 | 73 20 26 26 20 22 64 6f |age" && |s && "do|
|000035c0| 65 73 6e 27 74 20 65 78 | 69 73 74 2e 22 0d 72 65 |esn't ex|ist.".re|
|000035d0| 74 75 72 6e 20 22 50 61 | 67 65 20 64 6f 65 73 6e |turn "Pa|ge doesn|
|000035e0| 27 74 20 65 78 69 73 74 | 2e 22 0d 65 6e 64 20 69 |'t exist|.".end i|
|000035f0| 66 0d 69 66 20 65 20 3e | 20 66 6c 64 20 22 70 61 |f.if e >| fld "pa|
|00003600| 67 65 4e 75 6d 62 65 72 | 22 20 6f 66 20 6c 61 73 |geNumber|" of las|
|00003610| 74 20 63 64 20 74 68 65 | 6e 0d 73 65 74 20 6c 6f |t cd the|n.set lo|
|00003620| 63 6b 6d 65 73 73 61 67 | 65 73 20 74 6f 20 66 61 |ckmessag|es to fa|
|00003630| 6c 73 65 0d 70 6f 70 20 | 63 64 0d 75 6e 6c 6f 63 |lse.pop |cd.unloc|
|00003640| 6b 20 73 63 72 65 65 6e | 0d 61 6e 73 77 65 72 20 |k screen|.answer |
|00003650| 22 55 6e 61 62 6c 65 20 | 74 6f 20 70 72 69 6e 74 |"Unable |to print|
|00003660| 20 61 63 72 6f 73 73 20 | 69 73 73 75 65 73 2e 22 | across |issues."|
|00003670| 0d 72 65 74 75 72 6e 20 | 22 55 6e 61 62 6c 65 20 |.return |"Unable |
|00003680| 74 6f 20 70 72 69 6e 74 | 20 61 63 72 6f 73 73 20 |to print| across |
|00003690| 69 73 73 75 65 73 2e 22 | 0d 65 6e 64 20 69 66 0d |issues."|.end if.|
|000036a0| 69 66 20 73 20 b3 20 66 | 6c 64 20 22 70 61 67 65 |if s . f|ld "page|
|000036b0| 4e 75 6d 62 65 72 22 20 | 6f 66 20 66 69 72 73 74 |Number" |of first|
|000036c0| 20 63 64 20 61 6e 64 20 | 65 20 b2 20 66 6c 64 20 | cd and |e . fld |
|000036d0| 22 70 61 67 65 4e 75 6d | 62 65 72 22 20 6f 66 20 |"pageNum|ber" of |
|000036e0| 6c 61 73 74 20 63 64 20 | 61 6e 64 20 73 20 b2 20 |last cd |and s . |
|000036f0| 65 20 74 68 65 6e 0d 2d | 2d 20 43 4f 4d 50 49 4c |e then.-|- COMPIL|
|00003700| 45 20 50 52 49 4e 54 20 | 4c 49 53 54 0d 72 65 70 |E PRINT |LIST.rep|
|00003710| 65 61 74 0d 70 75 74 20 | 74 68 65 20 73 68 6f 72 |eat.put |the shor|
|00003720| 74 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 63 |t name o|f this c|
|00003730| 64 20 26 20 22 2c 22 20 | 61 66 74 65 72 20 70 69 |d & "," |after pi|
|00003740| 63 74 4c 69 73 74 0d 69 | 66 20 77 6f 72 64 20 31 |ctList.i|f word 1|
|00003750| 20 6f 66 20 66 6c 64 20 | 22 70 61 67 65 4e 75 6d | of fld |"pageNum|
|00003760| 62 65 72 22 20 6f 66 20 | 6e 65 78 74 20 63 64 20 |ber" of |next cd |
|00003770| 3e 20 65 20 74 68 65 6e | 20 65 78 69 74 20 72 65 |> e then| exit re|
|00003780| 70 65 61 74 0d 69 66 20 | 74 68 65 20 6e 75 6d 62 |peat.if |the numb|
|00003790| 65 72 20 6f 66 20 74 68 | 69 73 20 63 64 20 3d 20 |er of th|is cd = |
|000037a0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 64 |the numb|er of cd|
|000037b0| 73 20 74 68 65 6e 20 65 | 78 69 74 20 72 65 70 65 |s then e|xit repe|
|000037c0| 61 74 0d 67 6f 20 6e 65 | 78 74 0d 65 6e 64 20 72 |at.go ne|xt.end r|
|000037d0| 65 70 65 61 74 0d 64 65 | 6c 65 74 65 20 6c 61 73 |epeat.de|lete las|
|000037e0| 74 20 63 68 61 72 20 6f | 66 20 70 69 63 74 4c 69 |t char o|f pictLi|
|000037f0| 73 74 0d 2d 2d 20 52 45 | 54 55 52 4e 20 54 4f 20 |st.-- RE|TURN TO |
|00003800| 4f 52 49 47 49 4e 20 42 | 45 46 4f 52 45 20 50 52 |ORIGIN B|EFORE PR|
|00003810| 49 4e 54 49 4e 47 2c 20 | 49 4e 20 43 41 53 45 20 |INTING, |IN CASE |
|00003820| 43 4d 44 2d 2e 20 4f 55 | 54 20 4f 46 20 50 52 49 |CMD-. OU|T OF PRI|
|00003830| 4e 54 49 4e 47 0d 73 65 | 74 20 6c 6f 63 6b 6d 65 |NTING.se|t lockme|
|00003840| 73 73 61 67 65 73 20 74 | 6f 20 66 61 6c 73 65 0d |ssages t|o false.|
|00003850| 70 6f 70 20 63 64 0d 75 | 6e 6c 6f 63 6b 20 73 63 |pop cd.u|nlock sc|
|00003860| 72 65 65 6e 0d 69 66 20 | 74 68 65 20 73 68 6f 72 |reen.if |the shor|
|00003870| 74 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 73 |t name o|f this s|
|00003880| 74 61 63 6b 20 3d 20 28 | 22 64 65 76 65 6c 6f 70 |tack = (|"develop|
|00003890| 20 69 73 73 75 65 22 20 | 26 26 20 69 73 73 75 65 | issue" |&& issue|
|000038a0| 29 20 74 68 65 6e 0d 70 | 75 74 20 22 22 20 69 6e |) then.p|ut "" in|
|000038b0| 74 6f 20 66 69 6c 65 50 | 61 74 68 0d 65 6c 73 65 |to fileP|ath.else|
|000038c0| 20 70 75 74 20 63 75 72 | 72 46 6f 6c 64 65 72 50 | put cur|rFolderP|
|000038d0| 61 74 68 28 29 20 26 20 | 22 64 65 76 65 6c 6f 70 |ath() & |"develop|
|000038e0| 20 69 73 73 75 65 22 20 | 26 26 20 69 73 73 75 65 | issue" |&& issue|
|000038f0| 20 69 6e 74 6f 20 66 69 | 6c 65 50 61 74 68 0d 70 | into fi|lePath.p|
|00003900| 72 69 6e 74 50 69 63 74 | 52 65 73 20 70 69 63 74 |rintPict|Res pict|
|00003910| 4c 69 73 74 2c 22 6e 6f | 73 68 6f 77 22 2c 66 69 |List,"no|show",fi|
|00003920| 6c 65 50 61 74 68 0d 67 | 65 74 20 74 68 65 20 72 |lePath.g|et the r|
|00003930| 65 73 75 6c 74 0d 69 66 | 20 69 74 20 ad 20 22 22 |esult.if| it . ""|
|00003940| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 69 74 0d | then.an|swer it.|
|00003950| 65 6e 64 20 69 66 0d 72 | 65 74 75 72 6e 20 69 74 |end if.r|eturn it|
|00003960| 0d 65 6e 64 20 69 66 0d | 0d 73 65 74 20 6c 6f 63 |.end if.|.set loc|
|00003970| 6b 6d 65 73 73 61 67 65 | 73 20 74 6f 20 66 61 6c |kmessage|s to fal|
|00003980| 73 65 0d 70 6f 70 20 63 | 64 0d 75 6e 6c 6f 63 6b |se.pop c|d.unlock|
|00003990| 20 73 63 72 65 65 6e 0d | 61 6e 73 77 65 72 20 22 | screen.|answer "|
|000039a0| 49 6e 76 61 6c 69 64 20 | 70 61 67 65 20 72 61 6e |Invalid |page ran|
|000039b0| 67 65 20 70 72 6f 76 69 | 64 65 64 2e 22 0d 72 65 |ge provi|ded.".re|
|000039c0| 74 75 72 6e 20 22 49 6e | 76 61 6c 69 64 20 70 61 |turn "In|valid pa|
|000039d0| 67 65 20 72 61 6e 67 65 | 20 70 72 6f 76 69 64 65 |ge range| provide|
|000039e0| 64 2e 22 0d 65 6e 64 20 | 70 72 69 6e 74 70 61 67 |d.".end |printpag|
|000039f0| 65 73 0d 0d 6f 6e 20 67 | 6f 50 61 67 65 20 74 68 |es..on g|oPage th|
|00003a00| 69 73 50 61 67 65 2c 70 | 72 6f 6d 70 74 2c 69 73 |isPage,p|rompt,is|
|00003a10| 73 75 65 0d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |sue.set |cursor t|
|00003a20| 6f 20 77 61 74 63 68 0d | 69 66 20 74 68 69 73 50 |o watch.|if thisP|
|00003a30| 61 67 65 20 3d 20 22 22 | 20 74 68 65 6e 0d 61 73 |age = ""| then.as|
|00003a40| 6b 20 22 47 6f 20 74 6f | 20 70 61 67 65 20 6e 75 |k "Go to| page nu|
|00003a50| 6d 62 65 72 3a 22 0d 69 | 66 20 74 68 65 20 72 65 |mber:".i|f the re|
|00003a60| 73 75 6c 74 20 3d 20 22 | 63 61 6e 63 65 6c 22 20 |sult = "|cancel" |
|00003a70| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 22 63 61 6e |then ret|urn "can|
|00003a80| 63 65 6c 22 0d 70 75 74 | 20 69 74 20 69 6e 74 6f |cel".put| it into|
|00003a90| 20 74 68 69 73 50 61 67 | 65 0d 67 65 74 20 6f 66 | thisPag|e.get of|
|00003aa0| 66 73 65 74 28 22 3a 22 | 2c 74 68 69 73 50 61 67 |fset(":"|,thisPag|
|00003ab0| 65 29 0d 69 66 20 69 74 | 20 ad 20 30 20 74 68 65 |e).if it| . 0 the|
|00003ac0| 6e 0d 70 75 74 20 22 20 | 22 20 69 6e 74 6f 20 63 |n.put " |" into c|
|00003ad0| 68 61 72 20 69 74 20 6f | 66 20 74 68 69 73 50 61 |har it o|f thisPa|
|00003ae0| 67 65 0d 70 75 74 20 77 | 6f 72 64 20 31 20 6f 66 |ge.put w|ord 1 of|
|00003af0| 20 74 68 69 73 50 61 67 | 65 20 69 6e 74 6f 20 69 | thisPag|e into i|
|00003b00| 73 73 75 65 0d 70 75 74 | 20 77 6f 72 64 20 32 20 |ssue.put| word 2 |
|00003b10| 6f 66 20 74 68 69 73 50 | 61 67 65 20 69 6e 74 6f |of thisP|age into|
|00003b20| 20 74 68 69 73 50 61 67 | 65 0d 65 6e 64 20 69 66 | thisPag|e.end if|
|00003b30| 0d 65 6e 64 20 69 66 0d | 0d 69 66 20 69 73 73 75 |.end if.|.if issu|
|00003b40| 65 20 3d 20 22 22 20 74 | 68 65 6e 0d 69 66 20 74 |e = "" t|hen.if t|
|00003b50| 68 65 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |he short| name of|
|00003b60| 20 74 68 69 73 20 73 74 | 61 63 6b 20 63 6f 6e 74 | this st|ack cont|
|00003b70| 61 69 6e 73 20 22 64 65 | 76 65 6c 6f 70 20 69 73 |ains "de|velop is|
|00003b80| 73 75 65 22 20 74 68 65 | 6e 0d 70 75 74 20 6c 61 |sue" the|n.put la|
|00003b90| 73 74 20 77 6f 72 64 20 | 6f 66 20 74 68 65 20 73 |st word |of the s|
|00003ba0| 68 6f 72 74 20 6e 61 6d | 65 20 6f 66 20 74 68 69 |hort nam|e of thi|
|00003bb0| 73 20 73 74 61 63 6b 20 | 69 6e 74 6f 20 69 73 73 |s stack |into iss|
|00003bc0| 75 65 0d 65 6c 73 65 0d | 61 73 6b 20 22 57 68 69 |ue.else.|ask "Whi|
|00003bd0| 63 68 20 69 73 73 75 65 | 3f 22 0d 69 66 20 69 74 |ch issue|?".if it|
|00003be0| 20 3d 20 22 22 20 74 68 | 65 6e 20 72 65 74 75 72 | = "" th|en retur|
|00003bf0| 6e 20 22 49 6e 76 61 6c | 69 64 20 70 61 67 65 20 |n "Inval|id page |
|00003c00| 6f 72 20 69 73 73 75 65 | 20 6e 75 6d 62 65 72 2e |or issue| number.|
|00003c10| 22 0d 70 75 74 20 69 74 | 20 69 6e 74 6f 20 69 73 |".put it| into is|
|00003c20| 73 75 65 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |sue.end |if.end i|
|00003c30| 66 0d 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |f.set cu|rsor to |
|00003c40| 77 61 74 63 68 0d 69 66 | 20 74 68 69 73 50 61 67 |watch.if| thisPag|
|00003c50| 65 20 69 73 20 6e 6f 74 | 20 61 20 6e 75 6d 62 65 |e is not| a numbe|
|00003c60| 72 20 6f 72 20 69 73 73 | 75 65 20 69 73 20 6e 6f |r or iss|ue is no|
|00003c70| 74 20 69 6e 20 69 73 73 | 75 65 73 28 29 20 74 68 |t in iss|ues() th|
|00003c80| 65 6e 0d 61 6e 73 77 65 | 72 20 22 49 6e 76 61 6c |en.answe|r "Inval|
|00003c90| 69 64 20 70 61 67 65 20 | 6f 72 20 69 73 73 75 65 |id page |or issue|
|00003ca0| 20 6e 75 6d 62 65 72 2e | 22 0d 72 65 74 75 72 6e | number.|".return|
|00003cb0| 20 22 69 6e 76 61 6c 69 | 64 20 70 61 67 65 20 6f | "invali|d page o|
|00003cc0| 72 20 69 73 73 75 65 20 | 6e 75 6d 62 65 72 2e 22 |r issue |number."|
|00003cd0| 0d 65 6e 64 20 69 66 0d | 0d 69 66 20 74 72 61 70 |.end if.|.if trap|
|00003ce0| 47 6f 54 6f 49 73 73 75 | 65 28 69 73 73 75 65 29 |GoToIssu|e(issue)|
|00003cf0| 20 69 73 20 74 72 75 65 | 20 74 68 65 6e 20 65 78 | is true| then ex|
|00003d00| 69 74 20 67 6f 50 61 67 | 65 0d 0d 69 66 20 74 68 |it goPag|e..if th|
|00003d10| 69 73 50 61 67 65 20 3c | 20 31 30 20 74 68 65 6e |isPage <| 10 then|
|00003d20| 20 70 75 74 20 22 20 20 | 22 20 62 65 66 6f 72 65 | put " |" before|
|00003d30| 20 74 68 69 73 50 61 67 | 65 0d 65 6c 73 65 20 69 | thisPag|e.else i|
|00003d40| 66 20 74 68 69 73 50 61 | 67 65 20 3c 20 31 30 30 |f thisPa|ge < 100|
|00003d50| 20 74 68 65 6e 20 70 75 | 74 20 22 20 22 20 62 65 | then pu|t " " be|
|00003d60| 66 6f 72 65 20 74 68 69 | 73 50 61 67 65 0d 0d 69 |fore thi|sPage..i|
|00003d70| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 77 69 6e |f there |is a win|
|00003d80| 64 6f 77 20 28 22 64 65 | 76 65 6c 6f 70 20 69 73 |dow ("de|velop is|
|00003d90| 73 75 65 22 20 26 26 20 | 69 73 73 75 65 29 20 74 |sue" && |issue) t|
|00003da0| 68 65 6e 0d 67 6f 20 63 | 64 20 28 22 70 61 67 65 |hen.go c|d ("page|
|00003db0| 22 20 26 26 20 74 68 69 | 73 50 61 67 65 29 20 6f |" && thi|sPage) o|
|00003dc0| 66 20 73 74 61 63 6b 20 | 28 22 64 65 76 65 6c 6f |f stack |("develo|
|00003dd0| 70 20 69 73 73 75 65 22 | 20 26 26 20 69 73 73 75 |p issue"| && issu|
|00003de0| 65 29 0d 65 6c 73 65 0d | 69 66 20 70 72 6f 6d 70 |e).else.|if promp|
|00003df0| 74 20 3d 20 22 66 61 6c | 73 65 22 20 74 68 65 6e |t = "fal|se" then|
|00003e00| 0d 67 6f 20 63 64 20 28 | 22 70 61 67 65 22 20 26 |.go cd (|"page" &|
|00003e10| 26 20 74 68 69 73 50 61 | 67 65 29 20 6f 66 20 73 |& thisPa|ge) of s|
|00003e20| 74 61 63 6b 20 28 22 64 | 65 76 65 6c 6f 70 20 69 |tack ("d|evelop i|
|00003e30| 73 73 75 65 22 20 26 26 | 20 69 73 73 75 65 29 0d |ssue" &&| issue).|
|00003e40| 65 6c 73 65 0d 61 6e 73 | 77 65 72 20 22 4f 70 65 |else.ans|wer "Ope|
|00003e50| 6e 20 69 73 73 75 65 22 | 20 26 26 20 69 73 73 75 |n issue"| && issu|
|00003e60| 65 20 26 26 20 c2 0d 22 | 69 6e 20 74 68 65 20 63 |e && .."|in the c|
|00003e70| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 20 6f 72 |urrent w|indow or|
|00003e80| 20 61 20 6e 65 77 20 77 | 69 6e 64 6f 77 3f 22 20 | a new w|indow?" |
|00003e90| c2 0d 77 69 74 68 20 22 | 43 61 6e 63 65 6c 22 20 |..with "|Cancel" |
|00003ea0| 6f 72 20 22 43 75 72 72 | 65 6e 74 22 20 6f 72 20 |or "Curr|ent" or |
|00003eb0| 22 4e 65 77 22 0d 69 66 | 20 69 74 20 3d 20 22 63 |"New".if| it = "c|
|00003ec0| 61 6e 63 65 6c 22 20 74 | 68 65 6e 20 72 65 74 75 |ancel" t|hen retu|
|00003ed0| 72 6e 20 22 63 61 6e 63 | 65 6c 22 0d 69 66 20 69 |rn "canc|el".if i|
|00003ee0| 74 20 3d 20 22 63 75 72 | 72 65 6e 74 22 20 74 68 |t = "cur|rent" th|
|00003ef0| 65 6e 0d 67 6f 20 63 64 | 20 28 22 70 61 67 65 22 |en.go cd| ("page"|
|00003f00| 20 26 26 20 74 68 69 73 | 50 61 67 65 29 20 6f 66 | && this|Page) of|
|00003f10| 20 73 74 61 63 6b 20 28 | 22 64 65 76 65 6c 6f 70 | stack (|"develop|
|00003f20| 20 69 73 73 75 65 22 20 | 26 26 20 69 73 73 75 65 | issue" |&& issue|
|00003f30| 29 0d 65 6c 73 65 20 67 | 6f 20 63 64 20 28 22 70 |).else g|o cd ("p|
|00003f40| 61 67 65 22 20 26 26 20 | 74 68 69 73 50 61 67 65 |age" && |thisPage|
|00003f50| 29 20 6f 66 20 73 74 61 | 63 6b 20 28 22 64 65 76 |) of sta|ck ("dev|
|00003f60| 65 6c 6f 70 20 69 73 73 | 75 65 22 20 26 26 20 69 |elop iss|ue" && i|
|00003f70| 73 73 75 65 29 20 69 6e | 20 6e 65 77 20 77 69 6e |ssue) in| new win|
|00003f80| 64 6f 77 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |dow.end |if.end i|
|00003f90| 66 0d 67 65 74 20 74 68 | 65 20 72 65 73 75 6c 74 |f.get th|e result|
|00003fa0| 0d 69 66 20 69 74 20 3d | 20 22 63 61 6e 63 65 6c |.if it =| "cancel|
|00003fb0| 22 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 22 63 |" then r|eturn "c|
|00003fc0| 61 6e 63 65 6c 22 0d 65 | 6c 73 65 20 69 66 20 69 |ancel".e|lse if i|
|00003fd0| 74 20 3d 20 22 6e 6f 20 | 73 75 63 68 20 63 61 72 |t = "no |such car|
|00003fe0| 64 22 20 74 68 65 6e 20 | 61 6e 73 77 65 72 20 22 |d" then |answer "|
|00003ff0| 49 6e 76 61 6c 69 64 20 | 70 61 67 65 20 6f 72 20 |Invalid |page or |
|00004000| 69 73 73 75 65 20 6e 75 | 6d 62 65 72 2e 22 0d 69 |issue nu|mber.".i|
|00004010| 66 20 69 74 20 ad 20 22 | 22 20 74 68 65 6e 20 72 |f it . "|" then r|
|00004020| 65 74 75 72 6e 20 74 68 | 65 20 72 65 73 75 6c 74 |eturn th|e result|
|00004030| 0d 65 6c 73 65 20 72 65 | 74 75 72 6e 20 22 22 0d |.else re|turn "".|
|00004040| 65 6e 64 20 67 6f 50 61 | 67 65 0d 0d 6f 6e 20 67 |end goPa|ge..on g|
|00004050| 6f 4e 65 78 74 0d 67 6f | 20 6e 65 78 74 20 63 64 |oNext.go| next cd|
|00004060| 0d 75 6e 6c 6f 63 6b 20 | 73 63 72 65 65 6e 20 77 |.unlock |screen w|
|00004070| 69 74 68 20 76 69 73 75 | 61 6c 20 77 69 70 65 20 |ith visu|al wipe |
|00004080| 6c 65 66 74 0d 65 6e 64 | 20 67 6f 4e 65 78 74 0d |left.end| goNext.|
|00004090| 0d 6f 6e 20 67 6f 50 72 | 65 76 0d 67 6f 20 70 72 |.on goPr|ev.go pr|
|000040a0| 65 76 20 63 64 0d 75 6e | 6c 6f 63 6b 20 73 63 72 |ev cd.un|lock scr|
|000040b0| 65 65 6e 20 77 69 74 68 | 20 76 69 73 75 61 6c 20 |een with| visual |
|000040c0| 77 69 70 65 20 72 69 67 | 68 74 0d 65 6e 64 20 67 |wipe rig|ht.end g|
|000040d0| 6f 50 72 65 76 0d 0d 6f | 6e 20 67 6f 46 69 72 73 |oPrev..o|n goFirs|
|000040e0| 74 0d 67 6f 20 66 69 72 | 73 74 20 63 64 0d 75 6e |t.go fir|st cd.un|
|000040f0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 20 77 69 74 68 |lock scr|een with|
|00004100| 20 76 69 73 75 61 6c 20 | 73 63 72 6f 6c 6c 20 72 | visual |scroll r|
|00004110| 69 67 68 74 0d 65 6e 64 | 20 67 6f 46 69 72 73 74 |ight.end| goFirst|
|00004120| 0d 0d 6f 6e 20 67 6f 4c | 61 73 74 0d 67 6f 20 6c |..on goL|ast.go l|
|00004130| 61 73 74 20 63 64 0d 75 | 6e 6c 6f 63 6b 20 73 63 |ast cd.u|nlock sc|
|00004140| 72 65 65 6e 20 77 69 74 | 68 20 76 69 73 75 61 6c |reen wit|h visual|
|00004150| 20 73 63 72 6f 6c 6c 20 | 6c 65 66 74 0d 65 6e 64 | scroll |left.end|
|00004160| 20 67 6f 4c 61 73 74 0d | 0d 6f 6e 20 73 68 6f 77 | goLast.|.on show|
|00004170| 53 6e 61 70 73 68 6f 74 | 73 0d 67 65 74 20 74 68 |Snapshot|s.get th|
|00004180| 65 20 73 68 6f 72 74 20 | 6e 61 6d 65 20 6f 66 20 |e short |name of |
|00004190| 74 68 69 73 20 73 74 61 | 63 6b 0d 69 66 20 77 6f |this sta|ck.if wo|
|000041a0| 72 64 20 32 20 6f 66 20 | 69 74 20 3d 20 22 69 73 |rd 2 of |it = "is|
|000041b0| 73 75 65 22 20 74 68 65 | 6e 20 73 68 6f 77 53 6e |sue" the|n showSn|
|000041c0| 61 70 73 68 6f 74 73 31 | 20 28 6c 61 73 74 20 77 |apshots1| (last w|
|000041d0| 6f 72 64 20 6f 66 20 69 | 74 29 0d 65 6c 73 65 20 |ord of i|t).else |
|000041e0| 73 68 6f 77 53 6e 61 70 | 73 68 6f 74 73 32 0d 65 |showSnap|shots2.e|
|000041f0| 6e 64 20 73 68 6f 77 53 | 6e 61 70 73 68 6f 74 73 |nd showS|napshots|
|00004200| 0d 0d 6f 6e 20 73 65 74 | 44 65 66 61 75 6c 74 57 |..on set|DefaultW|
|00004210| 69 6e 64 6f 77 0d 67 65 | 74 20 74 68 65 20 73 63 |indow.ge|t the sc|
|00004220| 72 65 65 6e 52 65 63 74 | 0d 70 75 74 20 69 74 65 |reenRect|.put ite|
|00004230| 6d 20 33 20 6f 66 20 69 | 74 20 2d 20 69 74 65 6d |m 3 of i|t - item|
|00004240| 20 31 20 6f 66 20 69 74 | 20 69 6e 74 6f 20 77 0d | 1 of it| into w.|
|00004250| 70 75 74 20 69 74 65 6d | 20 34 20 6f 66 20 69 74 |put item| 4 of it|
|00004260| 20 2d 20 69 74 65 6d 20 | 32 20 6f 66 20 69 74 20 | - item |2 of it |
|00004270| 69 6e 74 6f 20 68 0d 69 | 66 20 28 74 68 65 20 74 |into h.i|f (the t|
|00004280| 6f 70 6c 65 66 74 20 6f | 66 20 63 64 20 77 69 6e |opleft o|f cd win|
|00004290| 64 6f 77 29 20 69 73 20 | 6e 6f 74 20 77 69 74 68 |dow) is |not with|
|000042a0| 69 6e 20 74 68 65 20 73 | 63 72 65 65 6e 52 65 63 |in the s|creenRec|
|000042b0| 74 20 6f 72 20 c2 0d 74 | 68 65 20 77 69 64 74 68 |t or ..t|he width|
|000042c0| 20 6f 66 20 63 64 20 77 | 69 6e 64 6f 77 20 3e 20 | of cd w|indow > |
|000042d0| 77 20 6f 72 20 74 68 65 | 20 68 65 69 67 68 74 20 |w or the| height |
|000042e0| 6f 66 20 63 64 20 77 69 | 6e 64 6f 77 20 3e 20 68 |of cd wi|ndow > h|
|000042f0| 20 74 68 65 6e 0d 69 66 | 20 77 6f 72 64 20 32 20 | then.if| word 2 |
|00004300| 6f 66 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |of the s|hort nam|
|00004310| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00004320| 3d 20 22 69 73 73 75 65 | 22 20 74 68 65 6e 20 73 |= "issue|" then s|
|00004330| 65 74 44 65 66 61 75 6c | 74 57 69 6e 64 6f 77 31 |etDefaul|tWindow1|
|00004340| 0d 65 6c 73 65 20 73 65 | 6e 64 20 73 65 74 44 65 |.else se|nd setDe|
|00004350| 66 61 75 6c 74 57 69 6e | 64 6f 77 32 20 74 6f 20 |faultWin|dow2 to |
|00004360| 74 68 69 73 20 63 64 0d | 65 6e 64 20 69 66 0d 65 |this cd.|end if.e|
|00004370| 6e 64 20 73 65 74 44 65 | 66 61 75 6c 74 57 69 6e |nd setDe|faultWin|
|00004380| 64 6f 77 0d 0d 6f 6e 20 | 73 65 74 44 65 66 61 75 |dow..on |setDefau|
|00004390| 6c 74 57 69 6e 64 6f 77 | 32 20 2d 2d 54 52 41 50 |ltWindow|2 --TRAP|
|000043a0| 0d 65 6e 64 20 73 65 74 | 44 65 66 61 75 6c 74 57 |.end set|DefaultW|
|000043b0| 69 6e 64 6f 77 32 0d 0d | 3d 3d 3d 20 55 4e 49 56 |indow2..|=== UNIV|
|000043c0| 45 52 53 41 4c 20 46 55 | 4e 43 54 49 4f 4e 53 0d |ERSAL FU|NCTIONS.|
|000043d0| 0d 66 75 6e 63 74 69 6f | 6e 20 63 75 72 72 46 6f |.functio|n currFo|
|000043e0| 6c 64 65 72 50 61 74 68 | 0d 70 75 74 20 74 68 65 |lderPath|.put the|
|000043f0| 20 76 61 6c 75 65 20 6f | 66 20 77 6f 72 64 20 32 | value o|f word 2|
|00004400| 20 6f 66 20 74 68 65 20 | 6c 6f 6e 67 20 6e 61 6d | of the |long nam|
|00004410| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |e of thi|s stack |
|00004420| 69 6e 74 6f 20 70 61 74 | 68 0d 72 65 70 65 61 74 |into pat|h.repeat|
|00004430| 20 77 69 74 68 20 69 20 | 3d 20 6c 65 6e 67 74 68 | with i |= length|
|00004440| 28 70 61 74 68 29 20 64 | 6f 77 6e 20 74 6f 20 31 |(path) d|own to 1|
|00004450| 0d 69 66 20 63 68 61 72 | 20 69 20 6f 66 20 70 61 |.if char| i of pa|
|00004460| 74 68 20 3d 20 22 3a 22 | 20 74 68 65 6e 20 65 78 |th = ":"| then ex|
|00004470| 69 74 20 72 65 70 65 61 | 74 0d 65 6e 64 20 72 65 |it repea|t.end re|
|00004480| 70 65 61 74 0d 72 65 74 | 75 72 6e 20 63 68 61 72 |peat.ret|urn char|
|00004490| 20 31 20 74 6f 20 69 20 | 6f 66 20 70 61 74 68 0d | 1 to i |of path.|
|000044a0| 65 6e 64 20 63 75 72 72 | 46 6f 6c 64 65 72 50 61 |end curr|FolderPa|
|000044b0| 74 68 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 73 74 72 |th..func|tion str|
|000044c0| 69 70 70 65 64 20 73 74 | 72 69 6e 67 0d 72 65 70 |ipped st|ring.rep|
|000044d0| 65 61 74 0d 69 66 20 63 | 68 61 72 20 31 20 6f 66 |eat.if c|har 1 of|
|000044e0| 20 73 74 72 69 6e 67 20 | 69 73 20 69 6e 20 22 20 | string |is in " |
|000044f0| ca 22 20 74 68 65 6e 20 | 64 65 6c 65 74 65 20 63 |." then |delete c|
|00004500| 68 61 72 20 31 20 6f 66 | 20 73 74 72 69 6e 67 0d |har 1 of| string.|
|00004510| 65 6c 73 65 20 65 78 69 | 74 20 72 65 70 65 61 74 |else exi|t repeat|
|00004520| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 72 65 70 65 |.end rep|eat.repe|
|00004530| 61 74 0d 69 66 20 6c 61 | 73 74 20 63 68 61 72 20 |at.if la|st char |
|00004540| 6f 66 20 73 74 72 69 6e | 67 20 69 73 20 69 6e 20 |of strin|g is in |
|00004550| 22 20 ca 22 20 74 68 65 | 6e 20 64 65 6c 65 74 65 |" ." the|n delete|
|00004560| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 73 74 | last ch|ar of st|
|00004570| 72 69 6e 67 0d 65 6c 73 | 65 20 65 78 69 74 20 72 |ring.els|e exit r|
|00004580| 65 70 65 61 74 0d 65 6e | 64 20 72 65 70 65 61 74 |epeat.en|d repeat|
|00004590| 0d 72 65 74 75 72 6e 20 | 73 74 72 69 6e 67 0d 65 |.return |string.e|
|000045a0| 6e 64 20 73 74 72 69 70 | 70 65 64 0d 0d 3d 3d 3d |nd strip|ped..===|
|000045b0| 20 46 4f 52 20 49 53 53 | 55 45 53 20 4f 4e 4c 59 | FOR ISS|UES ONLY|
|000045c0| 0d 0d 6f 6e 20 73 65 74 | 44 65 66 61 75 6c 74 57 |..on set|DefaultW|
|000045d0| 69 6e 64 6f 77 31 0d 70 | 75 74 20 74 68 65 20 73 |indow1.p|ut the s|
|000045e0| 63 72 65 65 6e 52 65 63 | 74 20 69 6e 74 6f 20 44 |creenRec|t into D|
|000045f0| 65 66 61 75 6c 74 57 69 | 6e 64 6f 77 0d 2d 2d 20 |efaultWi|ndow.-- |
|00004600| 53 45 54 20 57 49 4e 44 | 4f 57 20 52 45 4c 41 54 |SET WIND|OW RELAT|
|00004610| 49 56 45 20 54 4f 20 4c | 41 53 54 20 57 49 4e 44 |IVE TO L|AST WIND|
|00004620| 4f 57 20 49 46 20 4f 4e | 45 20 45 58 49 53 54 53 |OW IF ON|E EXISTS|
|00004630| 0d 69 66 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |.if the |number o|
|00004640| 66 20 6c 69 6e 65 73 20 | 69 6e 20 74 68 65 20 73 |f lines |in the s|
|00004650| 74 61 63 6b 73 20 3e 20 | 31 20 74 68 65 6e 20 2d |tacks > |1 then -|
|00004660| 2d 20 4f 46 46 53 45 54 | 20 4e 45 57 20 57 49 4e |- OFFSET| NEW WIN|
|00004670| 44 4f 57 20 4f 56 45 52 | 20 4c 41 53 54 20 57 49 |DOW OVER| LAST WI|
|00004680| 4e 44 4f 57 0d 70 75 74 | 20 6c 69 6e 65 20 32 20 |NDOW.put| line 2 |
|00004690| 6f 66 20 74 68 65 20 73 | 74 61 63 6b 73 20 69 6e |of the s|tacks in|
|000046a0| 74 6f 20 6c 61 73 74 57 | 69 6e 64 6f 77 0d 72 65 |to lastW|indow.re|
|000046b0| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 6c 65 |peat wit|h i = le|
|000046c0| 6e 67 74 68 28 6c 61 73 | 74 57 69 6e 64 6f 77 29 |ngth(las|tWindow)|
|000046d0| 20 64 6f 77 6e 20 74 6f | 20 31 0d 67 65 74 20 63 | down to| 1.get c|
|000046e0| 68 61 72 20 69 20 6f 66 | 20 6c 61 73 74 57 69 6e |har i of| lastWin|
|000046f0| 64 6f 77 0d 69 66 20 69 | 74 20 3d 20 22 3a 22 20 |dow.if i|t = ":" |
|00004700| 74 68 65 6e 20 65 78 69 | 74 20 72 65 70 65 61 74 |then exi|t repeat|
|00004710| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 64 65 6c 65 |.end rep|eat.dele|
|00004720| 74 65 20 63 68 61 72 20 | 31 20 74 6f 20 69 20 6f |te char |1 to i o|
|00004730| 66 20 6c 61 73 74 57 69 | 6e 64 6f 77 0d 70 75 74 |f lastWi|ndow.put|
|00004740| 20 74 68 65 20 6c 6f 63 | 20 6f 66 20 77 69 6e 64 | the loc| of wind|
|00004750| 6f 77 20 6c 61 73 74 77 | 69 6e 64 6f 77 20 69 6e |ow lastw|indow in|
|00004760| 74 6f 20 6c 61 73 74 54 | 4c 0d 6c 6f 63 6b 20 73 |to lastT|L.lock s|
|00004770| 63 72 65 65 6e 0d 73 65 | 74 20 6c 6f 63 20 6f 66 |creen.se|t loc of|
|00004780| 20 63 64 20 77 69 6e 64 | 6f 77 20 74 6f 20 6c 61 | cd wind|ow to la|
|00004790| 73 74 54 4c 20 2d 2d 20 | 50 55 54 20 4e 45 57 20 |stTL -- |PUT NEW |
|000047a0| 49 53 53 55 45 20 4f 4e | 20 53 41 4d 45 20 53 43 |ISSUE ON| SAME SC|
|000047b0| 52 45 45 4e 20 41 53 20 | 4c 41 53 54 20 57 49 4e |REEN AS |LAST WIN|
|000047c0| 44 4f 57 0d 72 65 70 65 | 61 74 20 77 68 69 6c 65 |DOW.repe|at while|
|000047d0| 20 74 68 65 20 6c 6f 63 | 6b 73 63 72 65 65 6e 0d | the loc|kscreen.|
|000047e0| 75 6e 6c 6f 63 6b 20 73 | 63 72 65 65 6e 0d 65 6e |unlock s|creen.en|
|000047f0| 64 20 72 65 70 65 61 74 | 0d 70 75 74 20 74 68 65 |d repeat|.put the|
|00004800| 20 73 63 72 65 65 6e 52 | 65 63 74 20 69 6e 74 6f | screenR|ect into|
|00004810| 20 44 65 66 61 75 6c 74 | 57 69 6e 64 6f 77 0d 70 | Default|Window.p|
|00004820| 75 74 20 69 74 65 6d 20 | 31 20 6f 66 20 6c 61 73 |ut item |1 of las|
|00004830| 74 54 4c 20 2b 20 31 35 | 20 69 6e 74 6f 20 69 74 |tTL + 15| into it|
|00004840| 65 6d 20 31 20 6f 66 20 | 64 65 66 61 75 6c 74 57 |em 1 of |defaultW|
|00004850| 69 6e 64 6f 77 0d 70 75 | 74 20 69 74 65 6d 20 32 |indow.pu|t item 2|
|00004860| 20 6f 66 20 6c 61 73 74 | 54 4c 20 2b 20 31 35 20 | of last|TL + 15 |
|00004870| 69 6e 74 6f 20 69 74 65 | 6d 20 32 20 6f 66 20 64 |into ite|m 2 of d|
|00004880| 65 66 61 75 6c 74 57 69 | 6e 64 6f 77 0d 65 6e 64 |efaultWi|ndow.end|
|00004890| 20 69 66 0d 0d 69 66 20 | 69 74 65 6d 20 32 20 6f | if..if |item 2 o|
|000048a0| 66 20 64 65 66 61 75 6c | 74 57 69 6e 64 6f 77 20 |f defaul|tWindow |
|000048b0| 3c 20 33 38 20 74 68 65 | 6e 20 70 75 74 20 33 38 |< 38 the|n put 38|
|000048c0| 20 69 6e 74 6f 20 69 74 | 65 6d 20 32 20 6f 66 20 | into it|em 2 of |
|000048d0| 64 65 66 61 75 6c 74 57 | 69 6e 64 6f 77 0d 67 65 |defaultW|indow.ge|
|000048e0| 74 20 69 74 65 6d 20 31 | 20 6f 66 20 64 65 66 61 |t item 1| of defa|
|000048f0| 75 6c 74 57 69 6e 64 6f | 77 20 2b 20 35 31 32 0d |ultWindo|w + 512.|
|00004900| 69 66 20 69 74 20 3c 20 | 69 74 65 6d 20 33 20 6f |if it < |item 3 o|
|00004910| 66 20 64 65 66 61 75 6c | 74 57 69 6e 64 6f 77 20 |f defaul|tWindow |
|00004920| 74 68 65 6e 20 70 75 74 | 20 69 74 20 69 6e 74 6f |then put| it into|
|00004930| 20 69 74 65 6d 20 33 20 | 6f 66 20 64 65 66 61 75 | item 3 |of defau|
|00004940| 6c 74 57 69 6e 64 6f 77 | 0d 0d 69 66 20 74 68 65 |ltWindow|..if the|
|00004950| 20 72 65 63 74 20 6f 66 | 20 63 64 20 77 69 6e 64 | rect of| cd wind|
|00004960| 6f 77 20 ad 20 64 65 66 | 61 75 6c 74 57 69 6e 64 |ow . def|aultWind|
|00004970| 6f 77 20 74 68 65 6e 0d | 68 69 64 65 20 66 6c 64 |ow then.|hide fld|
|00004980| 20 22 63 6f 6e 74 72 6f | 6c 73 22 0d 68 69 64 65 | "contro|ls".hide|
|00004990| 20 62 67 20 62 74 6e 20 | 22 72 65 73 69 7a 65 22 | bg btn |"resize"|
|000049a0| 0d 68 69 64 65 20 62 67 | 20 66 6c 64 20 22 70 61 |.hide bg| fld "pa|
|000049b0| 67 65 22 0d 73 65 74 20 | 74 68 65 20 72 65 63 74 |ge".set |the rect|
|000049c0| 20 6f 66 20 74 68 65 20 | 63 61 72 64 20 77 69 6e | of the |card win|
|000049d0| 64 6f 77 20 74 6f 20 44 | 65 66 61 75 6c 74 57 69 |dow to D|efaultWi|
|000049e0| 6e 64 6f 77 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ndow.end| if.end |
|000049f0| 73 65 74 44 65 66 61 75 | 6c 74 57 69 6e 64 6f 77 |setDefau|ltWindow|
|00004a00| 31 0d 0d 6f 6e 20 67 6f | 46 72 6f 6d 4c 6f 63 61 |1..on go|FromLoca|
|00004a10| 6c 54 4f 43 0d 70 75 74 | 20 74 68 65 20 76 61 6c |lTOC.put| the val|
|00004a20| 75 65 20 6f 66 20 74 68 | 65 20 63 6c 69 63 6b 4c |ue of th|e clickL|
|00004a30| 69 6e 65 20 69 6e 74 6f | 20 74 68 65 4c 69 6e 65 |ine into| theLine|
|00004a40| 0d 73 65 74 20 63 75 72 | 73 6f 72 20 74 6f 20 77 |.set cur|sor to w|
|00004a50| 61 74 63 68 0d 69 66 20 | 74 68 65 4c 69 6e 65 20 |atch.if |theLine |
|00004a60| 63 6f 6e 74 61 69 6e 73 | 20 22 c6 c6 22 20 74 68 |contains| ".." th|
|00004a70| 65 6e 0d 61 6e 73 77 65 | 72 20 22 54 68 65 73 65 |en.answe|r "These|
|00004a80| 20 67 72 61 70 68 69 63 | 73 20 61 72 65 20 64 69 | graphic|s are di|
|00004a90| 73 70 6c 61 79 65 64 20 | 6f 6e 6c 79 20 69 6e 20 |splayed |only in |
|00004aa0| 74 68 65 20 70 61 67 65 | 20 73 6e 61 70 73 68 6f |the page| snapsho|
|00004ab0| 74 73 2e 20 20 22 20 26 | 20 c2 0d 22 43 68 6f 6f |ts. " &| .."Choo|
|00004ac0| 73 65 20 53 68 6f 77 20 | 50 61 67 65 20 53 6e 61 |se Show |Page Sna|
|00004ad0| 70 73 68 6f 74 73 20 66 | 72 6f 6d 20 74 68 65 20 |pshots f|rom the |
|00004ae0| 57 69 6e 64 6f 77 73 20 | 6d 65 6e 75 20 22 20 26 |Windows |menu " &|
|00004af0| 20 c2 0d 22 6f 72 20 63 | 6c 69 63 6b 20 53 6e 61 | .."or c|lick Sna|
|00004b00| 70 73 68 6f 74 73 2e 22 | 20 77 69 74 68 20 22 53 |pshots."| with "S|
|00004b10| 6e 61 70 73 68 6f 74 73 | 22 20 6f 72 20 22 54 68 |napshots|" or "Th|
|00004b20| 61 6e 6b 73 22 0d 69 66 | 20 69 74 20 3d 20 22 53 |anks".if| it = "S|
|00004b30| 6e 61 70 73 68 6f 74 73 | 22 20 74 68 65 6e 0d 73 |napshots|" then.s|
|00004b40| 68 6f 77 53 6e 61 70 73 | 68 6f 74 73 0d 65 6e 64 |howSnaps|hots.end|
|00004b50| 20 69 66 0d 65 6c 73 65 | 20 69 66 20 66 6c 64 20 | if.else| if fld |
|00004b60| 22 74 69 74 6c 65 22 20 | ad 20 72 65 74 75 72 6e |"title" |. return|
|00004b70| 20 26 20 22 43 6f 6e 74 | 65 6e 74 73 22 20 74 68 | & "Cont|ents" th|
|00004b80| 65 6e 0d 61 6e 73 77 65 | 72 20 22 54 6f 20 73 65 |en.answe|r "To se|
|00004b90| 6c 65 63 74 20 74 65 78 | 74 2c 20 79 6f 75 20 6d |lect tex|t, you m|
|00004ba0| 75 73 74 20 66 69 72 73 | 74 20 75 6e 6c 6f 63 6b |ust firs|t unlock|
|00004bb0| 20 69 74 20 62 79 20 63 | 6c 69 63 6b 69 6e 67 20 | it by c|licking |
|00004bc0| 74 68 65 20 6c 69 74 74 | 6c 65 20 6c 6f 63 6b 20 |the litt|le lock |
|00004bd0| 69 63 6f 6e 2e 22 0d 65 | 6c 73 65 0d 70 75 74 20 |icon.".e|lse.put |
|00004be0| 6c 61 73 74 20 77 6f 72 | 64 20 6f 66 20 74 68 65 |last wor|d of the|
|00004bf0| 4c 69 6e 65 20 69 6e 74 | 6f 20 70 61 67 65 4e 75 |Line int|o pageNu|
|00004c00| 6d 0d 69 66 20 22 49 6e | 64 65 78 20 28 43 75 6d |m.if "In|dex (Cum|
|00004c10| 75 6c 61 74 69 76 65 29 | 20 2d 20 61 6c 73 6f 20 |ulative)| - also |
|00004c20| 73 65 65 20 47 6f 20 6d | 65 6e 75 22 20 69 73 20 |see Go m|enu" is |
|00004c30| 6e 6f 74 20 69 6e 20 74 | 68 65 4c 69 6e 65 20 74 |not in t|heLine t|
|00004c40| 68 65 6e 0d 69 66 20 74 | 68 65 4c 69 6e 65 20 3d |hen.if t|heLine =|
|00004c50| 20 22 22 20 6f 72 20 70 | 61 67 65 4e 75 6d 20 69 | "" or p|ageNum i|
|00004c60| 73 20 6e 6f 74 20 61 20 | 6e 75 6d 62 65 72 20 74 |s not a |number t|
|00004c70| 68 65 6e 20 65 78 69 74 | 20 67 6f 46 72 6f 6d 4c |hen exit| goFromL|
|00004c80| 6f 63 61 6c 54 4f 43 0d | 65 6e 64 20 69 66 0d 54 |ocalTOC.|end if.T|
|00004c90| 4f 43 73 65 6c 65 63 74 | 6c 69 6e 65 20 2d 2d 20 |OCselect|line -- |
|00004ca0| 74 68 65 20 63 6c 69 63 | 6b 6c 69 6e 65 0d 69 66 |the clic|kline.if|
|00004cb0| 20 74 68 65 20 6d 6f 75 | 73 65 43 6c 69 63 6b 20 | the mou|seClick |
|00004cc0| 74 68 65 6e 0d 72 65 70 | 65 61 74 20 77 68 69 6c |then.rep|eat whil|
|00004cd0| 65 20 74 68 65 20 6d 6f | 75 73 65 43 6c 69 63 6b |e the mo|useClick|
|00004ce0| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 69 66 20 74 |.end rep|eat.if t|
|00004cf0| 68 65 4c 69 6e 65 20 63 | 6f 6e 74 61 69 6e 73 20 |heLine c|ontains |
|00004d00| 22 49 6e 64 65 78 20 28 | 43 75 6d 75 6c 61 74 69 |"Index (|Cumulati|
|00004d10| 76 65 29 20 2d 20 61 6c | 73 6f 20 73 65 65 20 47 |ve) - al|so see G|
|00004d20| 6f 20 6d 65 6e 75 22 20 | 74 68 65 6e 20 67 6f 49 |o menu" |then goI|
|00004d30| 6e 64 65 78 0d 65 6c 73 | 65 0d 70 75 74 20 6c 61 |ndex.els|e.put la|
|00004d40| 73 74 20 77 6f 72 64 20 | 6f 66 20 74 68 65 20 73 |st word |of the s|
|00004d50| 68 6f 72 74 20 6e 61 6d | 65 20 6f 66 20 74 68 69 |hort nam|e of thi|
|00004d60| 73 20 73 74 61 63 6b 20 | 69 6e 74 6f 20 69 73 73 |s stack |into iss|
|00004d70| 75 65 0d 67 6f 50 61 67 | 65 20 70 61 67 65 4e 75 |ue.goPag|e pageNu|
|00004d80| 6d 2c 22 22 2c 69 73 73 | 75 65 0d 65 6e 64 20 69 |m,"",iss|ue.end i|
|00004d90| 66 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |f.end if|.end if.|
|00004da0| 65 6e 64 20 67 6f 46 72 | 6f 6d 4c 6f 63 61 6c 54 |end goFr|omLocalT|
|00004db0| 4f 43 0d 0d 6f 6e 20 54 | 4f 43 73 65 6c 65 63 74 |OC..on T|OCselect|
|00004dc0| 6c 69 6e 65 0d 70 75 74 | 20 77 6f 72 64 20 32 20 |line.put| word 2 |
|00004dd0| 6f 66 20 74 68 65 20 63 | 6c 69 63 6b 4c 69 6e 65 |of the c|lickLine|
|00004de0| 20 69 6e 74 6f 20 74 68 | 65 4c 69 6e 65 0d 69 66 | into th|eLine.if|
|00004df0| 20 74 68 65 4c 69 6e 65 | 20 3d 20 31 20 74 68 65 | theLine| = 1 the|
|00004e00| 6e 20 70 75 74 20 31 20 | 69 6e 74 6f 20 73 0d 65 |n put 1 |into s.e|
|00004e10| 6c 73 65 20 70 75 74 20 | 6c 65 6e 67 74 68 28 6c |lse put |length(l|
|00004e20| 69 6e 65 20 31 20 74 6f | 20 74 68 65 4c 69 6e 65 |ine 1 to| theLine|
|00004e30| 20 2d 31 20 6f 66 20 74 | 68 65 20 76 61 6c 75 65 | -1 of t|he value|
|00004e40| 20 6f 66 20 74 68 65 20 | 74 61 72 67 65 74 29 20 | of the |target) |
|00004e50| 2b 20 32 20 69 6e 74 6f | 20 73 0d 70 75 74 20 73 |+ 2 into| s.put s|
|00004e60| 20 2b 20 6c 65 6e 67 74 | 68 28 6c 69 6e 65 20 74 | + lengt|h(line t|
|00004e70| 68 65 4c 69 6e 65 20 6f | 66 20 74 68 65 20 76 61 |heLine o|f the va|
|00004e80| 6c 75 65 20 6f 66 20 74 | 68 65 20 74 61 72 67 65 |lue of t|he targe|
|00004e90| 74 29 20 69 6e 74 6f 20 | 65 0d 73 65 6c 65 63 74 |t) into |e.select|
|00004ea0| 20 63 68 61 72 20 73 20 | 74 6f 20 65 20 6f 66 20 | char s |to e of |
|00004eb0| 74 68 65 20 74 61 72 67 | 65 74 0d 65 6e 64 20 54 |the targ|et.end T|
|00004ec0| 4f 43 73 65 6c 65 63 74 | 6c 69 6e 65 0d 0d 6f 6e |OCselect|line..on|
|00004ed0| 20 73 68 6f 77 53 6e 61 | 70 73 68 6f 74 73 31 20 | showSna|pshots1 |
|00004ee0| 78 0d 67 6c 6f 62 61 6c | 20 44 50 73 65 63 74 69 |x.global| DPsecti|
|00004ef0| 6f 6e 53 74 6f 70 73 31 | 0d 70 75 74 20 69 74 65 |onStops1|.put ite|
|00004f00| 6d 20 78 20 6f 66 20 44 | 50 73 65 63 74 69 6f 6e |m x of D|Psection|
|00004f10| 53 74 6f 70 73 31 20 69 | 6e 74 6f 20 73 65 63 74 |Stops1 i|nto sect|
|00004f20| 69 6f 6e 53 74 6f 70 73 | 0d 73 65 74 20 63 75 72 |ionStops|.set cur|
|00004f30| 73 6f 72 20 74 6f 20 77 | 61 74 63 68 0d 70 75 74 |sor to w|atch.put|
|00004f40| 20 22 4c 3a 32 30 2c 54 | 3a 32 35 22 20 69 6e 74 | "L:20,T|:25" int|
|00004f50| 6f 20 66 72 61 6d 65 53 | 70 65 63 0d 69 66 20 73 |o frameS|pec.if s|
|00004f60| 65 63 74 69 6f 6e 53 74 | 6f 70 73 20 3d 20 22 22 |ectionSt|ops = ""|
|00004f70| 20 74 68 65 6e 0d 70 75 | 74 20 22 22 20 69 6e 74 | then.pu|t "" int|
|00004f80| 6f 20 6e 65 77 53 74 61 | 72 74 0d 72 65 70 65 61 |o newSta|rt.repea|
|00004f90| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to |
|00004fa0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 64 |the numb|er of cd|
|00004fb0| 73 0d 67 65 74 20 66 6c | 64 20 22 74 69 74 6c 65 |s.get fl|d "title|
|00004fc0| 22 20 6f 66 20 63 64 20 | 69 0d 69 66 20 69 74 20 |" of cd |i.if it |
|00004fd0| ad 20 6e 65 77 53 74 61 | 72 74 20 74 68 65 6e 0d |. newSta|rt then.|
|00004fe0| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 6e 65 77 53 |put it i|nto newS|
|00004ff0| 74 61 72 74 0d 70 75 74 | 20 28 74 68 65 20 73 68 |tart.put| (the sh|
|00005000| 6f 72 74 20 6e 61 6d 65 | 20 6f 66 20 63 64 20 69 |ort name| of cd i|
|00005010| 29 20 26 20 72 65 74 75 | 72 6e 20 61 66 74 65 72 |) & retu|rn after|
|00005020| 20 73 65 63 74 69 6f 6e | 53 74 6f 70 73 0d 65 6e | section|Stops.en|
|00005030| 64 20 69 66 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |d if.end| repeat.|
|00005040| 64 65 6c 65 74 65 20 6c | 61 73 74 20 63 68 61 72 |delete l|ast char|
|00005050| 20 6f 66 20 73 65 63 74 | 69 6f 6e 53 74 6f 70 73 | of sect|ionStops|
|00005060| 0d 70 75 74 20 73 65 63 | 74 69 6f 6e 53 74 6f 70 |.put sec|tionStop|
|00005070| 73 20 69 6e 74 6f 20 69 | 74 65 6d 20 78 20 6f 66 |s into i|tem x of|
|00005080| 20 44 50 73 65 63 74 69 | 6f 6e 53 74 6f 70 73 31 | DPsecti|onStops1|
|00005090| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 69 74 65 6d |.end if.|put item|
|000050a0| 20 33 20 6f 66 20 74 68 | 65 20 73 63 72 65 65 6e | 3 of th|e screen|
|000050b0| 52 65 63 74 20 26 20 22 | 2c 22 20 26 20 69 74 65 |Rect & "|," & ite|
|000050c0| 6d 20 34 20 6f 66 20 74 | 68 65 20 73 63 72 65 65 |m 4 of t|he scree|
|000050d0| 6e 52 65 63 74 20 2d 20 | 34 33 20 69 6e 74 6f 20 |nRect - |43 into |
|000050e0| 77 69 6e 64 6f 77 53 69 | 7a 65 20 2d 2d 20 34 33 |windowSi|ze -- 43|
|000050f0| 20 66 6f 72 20 6d 65 6e | 75 62 61 72 0d 69 66 20 | for men|ubar.if |
|00005100| 69 74 65 6d 20 31 20 6f | 66 20 77 69 6e 64 6f 77 |item 1 o|f window|
|00005110| 73 69 7a 65 20 3e 20 36 | 33 30 20 74 68 65 6e 20 |size > 6|30 then |
|00005120| 70 75 74 20 36 33 30 20 | 69 6e 74 6f 20 69 74 65 |put 630 |into ite|
|00005130| 6d 20 31 20 6f 66 20 77 | 69 6e 64 6f 77 53 69 7a |m 1 of w|indowSiz|
|00005140| 65 0d 69 66 20 69 74 65 | 6d 20 32 20 6f 66 20 77 |e.if ite|m 2 of w|
|00005150| 69 6e 64 6f 77 73 69 7a | 65 20 3e 20 37 39 30 20 |indowsiz|e > 790 |
|00005160| 74 68 65 6e 20 70 75 74 | 20 37 39 30 20 69 6e 74 |then put| 790 int|
|00005170| 6f 20 69 74 65 6d 20 32 | 20 6f 66 20 77 69 6e 64 |o item 2| of wind|
|00005180| 6f 77 53 69 7a 65 0d 70 | 75 74 20 69 74 65 6d 20 |owSize.p|ut item |
|00005190| 31 20 6f 66 20 74 68 65 | 20 73 63 72 65 65 6e 52 |1 of the| screenR|
|000051a0| 65 63 74 20 2b 20 33 20 | 26 20 22 2c 22 20 26 20 |ect + 3 |& "," & |
|000051b0| 34 30 20 69 6e 74 6f 20 | 77 69 6e 64 6f 77 4c 6f |40 into |windowLo|
|000051c0| 63 20 2d 2d 20 55 50 50 | 45 52 20 4c 45 46 54 20 |c -- UPP|ER LEFT |
|000051d0| 4f 46 20 43 55 52 52 45 | 4e 54 20 53 43 52 45 45 |OF CURRE|NT SCREE|
|000051e0| 4e 0d 70 75 74 20 28 74 | 68 65 20 73 68 6f 72 74 |N.put (t|he short|
|000051f0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 73 74 | name of| this st|
|00005200| 61 63 6b 20 26 26 20 22 | 53 6e 61 70 73 68 6f 74 |ack && "|Snapshot|
|00005210| 73 22 29 20 69 6e 74 6f | 20 77 69 6e 64 6f 77 54 |s") into| windowT|
|00005220| 69 74 6c 65 0d 0d 2d 2d | 53 59 4e 54 41 58 2d 2d |itle..--|SYNTAX--|
|00005230| 20 46 6c 69 70 50 69 63 | 74 20 50 49 43 54 73 70 | FlipPic|t PICTsp|
|00005240| 65 63 73 2c 20 66 69 72 | 73 74 50 49 43 54 20 5b |ecs, fir|stPICT [|
|00005250| 2c 20 73 65 63 74 69 6f | 6e 53 70 65 63 73 2c c2 |, sectio|nSpecs,.|
|00005260| 0d 2d 2d 66 72 61 6d 65 | 53 70 65 63 2c 77 69 6e |.--frame|Spec,win|
|00005270| 64 6f 77 53 69 7a 65 2c | 20 77 69 6e 64 6f 77 4c |dowSize,| windowL|
|00005280| 6f 63 2c 20 66 69 6c 65 | 50 61 74 68 2c 20 77 69 |oc, file|Path, wi|
|00005290| 6e 64 6f 77 54 69 74 6c | 65 2c 20 64 69 73 70 6c |ndowTitl|e, displ|
|000052a0| 61 79 41 6c 65 72 74 73 | 5d 0d 66 6c 69 70 50 69 |ayAlerts|].flipPi|
|000052b0| 63 74 20 22 61 6c 6c 3a | 61 6c 70 68 61 22 2c 28 |ct "all:|alpha",(|
|000052c0| 74 68 65 20 73 68 6f 72 | 74 20 6e 61 6d 65 20 6f |the shor|t name o|
|000052d0| 66 20 74 68 69 73 20 63 | 64 29 2c 73 65 63 74 69 |f this c|d),secti|
|000052e0| 6f 6e 53 74 6f 70 73 2c | c2 0d 66 72 61 6d 65 53 |onStops,|..frameS|
|000052f0| 70 65 63 2c 77 69 6e 64 | 6f 77 53 69 7a 65 2c 77 |pec,wind|owSize,w|
|00005300| 69 6e 64 6f 77 4c 6f 63 | 2c 22 22 2c 77 69 6e 64 |indowLoc|,"",wind|
|00005310| 6f 77 54 69 74 6c 65 2c | 22 74 72 75 65 22 0d 69 |owTitle,|"true".i|
|00005320| 66 20 74 68 65 20 72 65 | 73 75 6c 74 20 ad 20 22 |f the re|sult . "|
|00005330| 22 20 74 68 65 6e 20 61 | 6e 73 77 65 72 20 74 68 |" then a|nswer th|
|00005340| 65 20 72 65 73 75 6c 74 | 0d 65 6c 73 65 20 75 70 |e result|.else up|
|00005350| 64 61 74 65 77 69 6e 64 | 6f 77 73 0d 65 6e 64 20 |datewind|ows.end |
|00005360| 73 68 6f 77 53 6e 61 70 | 73 68 6f 74 73 31 0d 0d |showSnap|shots1..|
|00005370| 6f 6e 20 49 53 53 55 45 | 6f 70 65 6e 43 61 72 64 |on ISSUE|openCard|
|00005380| 0d 67 6c 6f 62 61 6c 20 | 44 50 74 65 78 74 4c 6f |.global |DPtextLo|
|00005390| 63 6b 0d 69 66 20 74 68 | 65 20 63 61 6e 74 4d 6f |ck.if th|e cantMo|
|000053a0| 64 69 66 79 20 6f 66 20 | 74 68 69 73 20 73 74 61 |dify of |this sta|
|000053b0| 63 6b 20 74 68 65 6e 20 | 49 53 53 55 45 72 65 73 |ck then |ISSUEres|
|000053c0| 69 7a 65 43 61 72 64 0d | 69 66 20 74 68 65 72 65 |izeCard.|if there|
|000053d0| 20 69 73 20 61 20 63 64 | 20 62 74 6e 20 22 72 65 | is a cd| btn "re|
|000053e0| 73 69 7a 65 22 20 74 68 | 65 6e 20 72 65 73 69 7a |size" th|en resiz|
|000053f0| 65 53 70 65 63 69 61 6c | 0d 73 65 74 20 73 63 72 |eSpecial|.set scr|
|00005400| 6f 6c 6c 20 6f 66 20 66 | 6c 64 20 22 70 61 67 65 |oll of f|ld "page|
|00005410| 22 20 74 6f 20 30 0d 0d | 69 66 20 74 68 65 20 6e |" to 0..|if the n|
|00005420| 75 6d 62 65 72 20 6f 66 | 20 74 68 69 73 20 63 64 |umber of| this cd|
|00005430| 20 3d 20 33 20 74 68 65 | 6e 20 73 65 74 54 65 78 | = 3 the|n setTex|
|00005440| 74 4c 6f 63 6b 20 74 72 | 75 65 0d 65 6c 73 65 20 |tLock tr|ue.else |
|00005450| 73 65 74 54 65 78 74 4c | 6f 63 6b 20 44 50 74 65 |setTextL|ock DPte|
|00005460| 78 74 4c 6f 63 6b 0d 65 | 6e 64 20 49 53 53 55 45 |xtLock.e|nd ISSUE|
|00005470| 6f 70 65 6e 43 61 72 64 | 0d 0d 6f 6e 20 49 53 53 |openCard|..on ISS|
|00005480| 55 45 6d 6f 75 73 65 44 | 6f 77 6e 0d 69 66 20 74 |UEmouseD|own.if t|
|00005490| 68 65 72 65 20 69 73 20 | 61 20 63 64 20 62 74 6e |here is |a cd btn|
|000054a0| 20 22 72 65 73 69 7a 65 | 22 20 74 68 65 6e 20 2d | "resize|" then -|
|000054b0| 2d 20 43 61 72 64 20 70 | 69 63 74 75 72 65 20 6f |- Card p|icture o|
|000054c0| 62 73 63 75 72 65 73 20 | 62 67 20 63 6f 6e 74 72 |bscures |bg contr|
|000054d0| 6f 6c 73 20 6f 6e 20 73 | 75 63 68 20 63 61 72 64 |ols on s|uch card|
|000054e0| 73 0d 77 61 69 74 20 37 | 20 74 69 63 6b 73 0d 69 |s.wait 7| ticks.i|
|000054f0| 66 20 74 68 65 20 6d 6f | 75 73 65 20 69 73 20 75 |f the mo|use is u|
|00005500| 70 20 74 68 65 6e 20 61 | 6e 73 77 65 72 20 22 48 |p then a|nswer "H|
|00005510| 6f 6c 64 20 74 68 65 20 | 6d 6f 75 73 65 20 64 6f |old the |mouse do|
|00005520| 77 6e 20 74 6f 20 64 72 | 61 67 20 74 68 65 20 70 |wn to dr|ag the p|
|00005530| 61 67 65 20 69 6d 61 67 | 65 2e 22 0d 65 6c 73 65 |age imag|e.".else|
|00005540| 0d 68 69 64 65 20 63 64 | 20 66 6c 64 20 22 63 6f |.hide cd| fld "co|
|00005550| 6e 74 72 6f 6c 73 22 0d | 68 69 64 65 20 63 64 20 |ntrols".|hide cd |
|00005560| 62 74 6e 20 22 72 65 73 | 69 7a 65 22 0d 74 79 70 |btn "res|ize".typ|
|00005570| 65 20 22 65 22 20 77 69 | 74 68 20 63 6f 6d 6d 61 |e "e" wi|th comma|
|00005580| 6e 64 6b 65 79 2c 73 68 | 69 66 74 6b 65 79 0d 63 |ndkey,sh|iftkey.c|
|00005590| 6c 69 63 6b 20 61 74 20 | 74 68 65 20 63 6c 69 63 |lick at |the clic|
|000055a0| 6b 4c 6f 63 0d 65 78 69 | 74 20 74 6f 20 68 79 70 |kLoc.exi|t to hyp|
|000055b0| 65 72 63 61 72 64 0d 65 | 6e 64 20 69 66 0d 65 6e |ercard.e|nd if.en|
|000055c0| 64 20 69 66 0d 73 65 6c | 65 63 74 20 22 22 0d 69 |d if.sel|ect "".i|
|000055d0| 66 20 74 68 65 20 4d 6f | 75 73 65 48 20 2b 20 31 |f the Mo|useH + 1|
|000055e0| 37 20 3e 20 74 68 65 20 | 77 69 64 74 68 20 6f 66 |7 > the |width of|
|000055f0| 20 63 64 20 77 69 6e 64 | 6f 77 20 61 6e 64 20 c2 | cd wind|ow and .|
|00005600| 0d 74 68 65 20 6d 6f 75 | 73 65 56 20 2b 20 31 37 |.the mou|seV + 17|
|00005610| 20 3e 20 74 68 65 20 68 | 65 69 67 68 74 20 6f 66 | > the h|eight of|
|00005620| 20 63 64 20 77 69 6e 64 | 6f 77 20 74 68 65 6e 20 | cd wind|ow then |
|00005630| 49 53 53 55 45 72 65 73 | 69 7a 65 57 69 6e 64 6f |ISSUEres|izeWindo|
|00005640| 77 20 72 65 66 6c 6f 77 | 0d 65 6e 64 20 49 53 53 |w reflow|.end ISS|
|00005650| 55 45 6d 6f 75 73 65 44 | 6f 77 6e 0d 0d 6f 6e 20 |UEmouseD|own..on |
|00005660| 49 53 53 55 45 72 65 73 | 69 7a 65 57 69 6e 64 6f |ISSUEres|izeWindo|
|00005670| 77 0d 67 6c 6f 62 61 6c | 20 66 69 72 73 74 43 68 |w.global| firstCh|
|00005680| 61 72 0d 74 79 70 65 20 | 22 65 22 20 77 69 74 68 |ar.type |"e" with|
|00005690| 20 63 6f 6d 6d 61 6e 64 | 6b 65 79 2c 73 68 69 66 | command|key,shif|
|000056a0| 74 6b 65 79 0d 63 6c 69 | 63 6b 20 61 74 20 74 68 |tkey.cli|ck at th|
|000056b0| 65 20 63 6c 69 63 6b 4c | 6f 63 0d 65 6e 64 20 49 |e clickL|oc.end I|
|000056c0| 53 53 55 45 72 65 73 69 | 7a 65 57 69 6e 64 6f 77 |SSUEresi|zeWindow|
|000056d0| 0d 0d 6f 6e 20 49 53 53 | 55 45 72 65 73 69 7a 65 |..on ISS|UEresize|
|000056e0| 43 61 72 64 0d 73 65 74 | 20 73 63 72 6f 6c 6c 20 |Card.set| scroll |
|000056f0| 6f 66 20 63 64 20 77 69 | 6e 64 6f 77 20 74 6f 20 |of cd wi|ndow to |
|00005700| 30 2c 30 0d 67 65 74 20 | 74 68 65 20 77 69 64 74 |0,0.get |the widt|
|00005710| 68 20 6f 66 20 74 68 65 | 20 63 64 20 77 69 6e 64 |h of the| cd wind|
|00005720| 6f 77 20 2d 20 69 74 65 | 6d 20 31 20 6f 66 20 74 |ow - ite|m 1 of t|
|00005730| 68 65 20 73 63 72 6f 6c | 6c 20 6f 66 20 63 64 20 |he scrol|l of cd |
|00005740| 77 69 6e 64 6f 77 20 c2 | 0d 26 20 22 2c 22 20 26 |window .|.& "," &|
|00005750| 20 74 68 65 20 68 65 69 | 67 68 74 20 6f 66 20 63 | the hei|ght of c|
|00005760| 64 20 77 69 6e 64 6f 77 | 20 2d 20 69 74 65 6d 20 |d window| - item |
|00005770| 32 20 6f 66 20 74 68 65 | 20 73 63 72 6f 6c 6c 20 |2 of the| scroll |
|00005780| 6f 66 20 63 64 20 77 69 | 6e 64 6f 77 0d 69 66 20 |of cd wi|ndow.if |
|00005790| 69 74 20 ad 20 74 68 65 | 20 62 6f 74 74 6f 6d 52 |it . the| bottomR|
|000057a0| 69 67 68 74 20 6f 66 20 | 62 67 20 62 74 6e 20 22 |ight of |bg btn "|
|000057b0| 72 65 73 69 7a 65 22 20 | 6f 72 20 6e 6f 74 20 74 |resize" |or not t|
|000057c0| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 62 67 |he visib|le of bg|
|000057d0| 20 62 74 6e 20 22 72 65 | 73 69 7a 65 22 20 74 68 | btn "re|size" th|
|000057e0| 65 6e 0d 0d 70 75 74 20 | 22 30 2c 30 2c 22 20 26 |en..put |"0,0," &|
|000057f0| 20 74 68 65 20 77 69 64 | 74 68 20 6f 66 20 63 64 | the wid|th of cd|
|00005800| 20 77 69 6e 64 6f 77 20 | 26 20 22 2c 22 20 26 20 | window |& "," & |
|00005810| c2 0d 74 68 65 20 68 65 | 69 67 68 74 20 6f 66 20 |..the he|ight of |
|00005820| 63 64 20 77 69 6e 64 6f | 77 20 69 6e 74 6f 20 63 |cd windo|w into c|
|00005830| 64 52 65 63 74 0d 0d 68 | 69 64 65 20 66 6c 64 20 |dRect..h|ide fld |
|00005840| 22 63 6f 6e 74 72 6f 6c | 73 22 0d 68 69 64 65 20 |"control|s".hide |
|00005850| 62 67 20 62 74 6e 20 22 | 72 65 73 69 7a 65 22 0d |bg btn "|resize".|
|00005860| 68 69 64 65 20 62 67 20 | 66 6c 64 20 22 70 61 67 |hide bg |fld "pag|
|00005870| 65 22 0d 70 75 74 20 69 | 74 65 6d 20 33 20 6f 66 |e".put i|tem 3 of|
|00005880| 20 63 64 52 65 63 74 20 | 69 6e 74 6f 20 72 74 6d | cdRect |into rtm|
|00005890| 61 72 67 69 6e 0d 0d 70 | 75 74 20 74 68 65 20 72 |argin..p|ut the r|
|000058a0| 65 63 74 20 6f 66 20 62 | 67 20 66 6c 64 20 22 74 |ect of b|g fld "t|
|000058b0| 69 74 6c 65 22 20 69 6e | 74 6f 20 74 69 74 6c 65 |itle" in|to title|
|000058c0| 52 65 63 74 0d 70 75 74 | 20 74 68 65 20 72 65 63 |Rect.put| the rec|
|000058d0| 74 20 6f 66 20 62 67 20 | 66 6c 64 20 22 70 61 67 |t of bg |fld "pag|
|000058e0| 65 22 20 69 6e 74 6f 20 | 70 61 67 65 52 65 63 74 |e" into |pageRect|
|000058f0| 0d 0d 70 75 74 20 72 74 | 6d 61 72 67 69 6e 20 2b |..put rt|margin +|
|00005900| 20 31 20 69 6e 74 6f 20 | 69 74 65 6d 20 33 20 6f | 1 into |item 3 o|
|00005910| 66 20 70 61 67 65 52 65 | 63 74 20 2d 2d 20 2d 20 |f pageRe|ct -- - |
|00005920| 31 35 0d 70 75 74 20 69 | 74 65 6d 20 34 20 6f 66 |15.put i|tem 4 of|
|00005930| 20 63 64 52 65 63 74 20 | 2d 20 31 35 20 69 6e 74 | cdRect |- 15 int|
|00005940| 6f 20 69 74 65 6d 20 34 | 20 6f 66 20 70 61 67 65 |o item 4| of page|
|00005950| 52 65 63 74 0d 70 75 74 | 20 72 74 6d 61 72 67 69 |Rect.put| rtmargi|
|00005960| 6e 20 2b 20 31 20 69 6e | 74 6f 20 69 74 65 6d 20 |n + 1 in|to item |
|00005970| 33 20 6f 66 20 74 69 74 | 6c 65 52 65 63 74 20 2d |3 of tit|leRect -|
|00005980| 2d 20 2d 20 31 35 0d 73 | 65 74 20 72 65 63 74 20 |- - 15.s|et rect |
|00005990| 6f 66 20 62 67 20 66 6c | 64 20 22 70 61 67 65 22 |of bg fl|d "page"|
|000059a0| 20 74 6f 20 70 61 67 65 | 52 65 63 74 0d 73 65 74 | to page|Rect.set|
|000059b0| 20 72 65 63 74 20 6f 66 | 20 62 67 20 66 6c 64 20 | rect of| bg fld |
|000059c0| 22 74 69 74 6c 65 22 20 | 74 6f 20 74 69 74 6c 65 |"title" |to title|
|000059d0| 52 65 63 74 0d 73 65 74 | 20 72 65 63 74 20 6f 66 |Rect.set| rect of|
|000059e0| 20 62 67 20 62 74 6e 20 | 22 72 65 73 69 7a 65 22 | bg btn |"resize"|
|000059f0| 20 74 6f 20 c2 0d 69 74 | 65 6d 20 33 20 6f 66 20 | to ..it|em 3 of |
|00005a00| 63 64 52 65 63 74 20 2d | 20 31 36 2c 69 74 65 6d |cdRect -| 16,item|
|00005a10| 20 34 20 6f 66 20 63 64 | 52 65 63 74 20 2d 20 31 | 4 of cd|Rect - 1|
|00005a20| 36 2c 69 74 65 6d 20 33 | 20 6f 66 20 63 64 52 65 |6,item 3| of cdRe|
|00005a30| 63 74 2c 69 74 65 6d 20 | 34 20 6f 66 20 63 64 52 |ct,item |4 of cdR|
|00005a40| 65 63 74 0d 73 65 74 20 | 72 65 63 74 20 6f 66 20 |ect.set |rect of |
|00005a50| 62 67 20 66 6c 64 20 22 | 63 6f 6e 74 72 6f 6c 73 |bg fld "|controls|
|00005a60| 22 20 74 6f 20 2d 31 2c | 69 74 65 6d 20 34 20 6f |" to -1,|item 4 o|
|00005a70| 66 20 70 61 67 65 52 65 | 63 74 2d 31 2c 69 74 65 |f pageRe|ct-1,ite|
|00005a80| 6d 20 33 20 6f 66 20 63 | 64 52 65 63 74 20 2d 20 |m 3 of c|dRect - |
|00005a90| 31 35 2c 69 74 65 6d 20 | 34 20 6f 66 20 63 64 52 |15,item |4 of cdR|
|00005aa0| 65 63 74 20 2b 20 31 0d | 0d 73 68 6f 77 20 66 6c |ect + 1.|.show fl|
|00005ab0| 64 20 22 63 6f 6e 74 72 | 6f 6c 73 22 0d 73 68 6f |d "contr|ols".sho|
|00005ac0| 77 20 62 67 20 62 74 6e | 20 22 72 65 73 69 7a 65 |w bg btn| "resize|
|00005ad0| 22 0d 73 68 6f 77 20 62 | 67 20 66 6c 64 20 22 70 |".show b|g fld "p|
|00005ae0| 61 67 65 22 0d 65 6e 64 | 20 69 66 0d 69 66 20 74 |age".end| if.if t|
|00005af0| 68 65 72 65 20 69 73 20 | 61 20 63 64 20 66 6c 64 |here is |a cd fld|
|00005b00| 20 22 63 6f 6e 74 72 6f | 6c 73 22 20 74 68 65 6e | "contro|ls" then|
|00005b10| 20 72 65 73 69 7a 65 53 | 70 65 63 69 61 6c 0d 65 | resizeS|pecial.e|
|00005b20| 6e 64 20 49 53 53 55 45 | 72 65 73 69 7a 65 43 61 |nd ISSUE|resizeCa|
|00005b30| 72 64 0d 0d 6f 6e 20 72 | 65 73 69 7a 65 53 70 65 |rd..on r|esizeSpe|
|00005b40| 63 69 61 6c 20 2d 2d 20 | 46 4f 52 20 49 53 53 55 |cial -- |FOR ISSU|
|00005b50| 45 20 43 41 52 44 20 54 | 48 41 54 20 48 41 56 45 |E CARD T|HAT HAVE|
|00005b60| 20 50 49 43 54 55 52 45 | 53 20 28 43 4f 56 45 52 | PICTURE|S (COVER|
|00005b70| 2c 20 53 55 42 53 43 52 | 49 50 54 49 4f 4e 20 46 |, SUBSCR|IPTION F|
|00005b80| 4f 52 4d 2c 20 45 54 43 | 29 0d 70 75 74 20 74 68 |ORM, ETC|).put th|
|00005b90| 65 20 73 63 72 6f 6c 6c | 20 6f 66 20 63 64 20 77 |e scroll| of cd w|
|00005ba0| 69 6e 64 6f 77 20 69 6e | 74 6f 20 74 68 65 53 63 |indow in|to theSc|
|00005bb0| 72 6f 6c 6c 0d 69 66 20 | 74 68 65 20 62 6f 74 74 |roll.if |the bott|
|00005bc0| 6f 6d 20 6f 66 20 63 64 | 20 66 6c 64 20 22 63 6f |om of cd| fld "co|
|00005bd0| 6e 74 72 6f 6c 73 22 20 | ad 20 74 68 65 20 68 65 |ntrols" |. the he|
|00005be0| 69 67 68 74 20 6f 66 20 | 63 64 20 77 69 6e 64 6f |ight of |cd windo|
|00005bf0| 77 20 2b 20 69 74 65 6d | 20 32 20 6f 66 20 74 68 |w + item| 2 of th|
|00005c00| 65 53 63 72 6f 6c 6c 20 | 2b 20 31 20 c2 0d 6f 72 |eScroll |+ 1 ..or|
|00005c10| 20 74 68 65 20 77 69 64 | 74 68 20 6f 66 20 63 64 | the wid|th of cd|
|00005c20| 20 66 6c 64 20 22 63 6f | 6e 74 72 6f 6c 73 22 20 | fld "co|ntrols" |
|00005c30| ad 20 74 68 65 20 77 69 | 64 74 68 20 6f 66 20 63 |. the wi|dth of c|
|00005c40| 64 20 77 69 6e 64 6f 77 | 20 2b 20 69 74 65 6d 20 |d window| + item |
|00005c50| 31 20 6f 66 20 74 68 65 | 53 63 72 6f 6c 6c 20 2d |1 of the|Scroll -|
|00005c60| 20 31 34 20 c2 0d 6f 72 | 20 6e 6f 74 20 74 68 65 | 14 ..or| not the|
|00005c70| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 63 64 20 62 | visible| of cd b|
|00005c80| 74 6e 20 22 72 65 73 69 | 7a 65 22 20 74 68 65 6e |tn "resi|ze" then|
|00005c90| 0d 0d 73 65 74 20 62 6f | 74 74 6f 6d 20 6f 66 20 |..set bo|ttom of |
|00005ca0| 63 64 20 66 6c 64 20 22 | 63 6f 6e 74 72 6f 6c 73 |cd fld "|controls|
|00005cb0| 22 20 74 6f 20 74 68 65 | 20 68 65 69 67 68 74 20 |" to the| height |
|00005cc0| 6f 66 20 63 64 20 77 69 | 6e 64 6f 77 20 2b 20 69 |of cd wi|ndow + i|
|00005cd0| 74 65 6d 20 32 20 6f 66 | 20 74 68 65 53 63 72 6f |tem 2 of| theScro|
|00005ce0| 6c 6c 20 2b 20 31 0d 73 | 65 74 20 77 69 64 74 68 |ll + 1.s|et width|
|00005cf0| 20 6f 66 20 63 64 20 66 | 6c 64 20 22 63 6f 6e 74 | of cd f|ld "cont|
|00005d00| 72 6f 6c 73 22 20 74 6f | 20 74 68 65 20 77 69 64 |rols" to| the wid|
|00005d10| 74 68 20 6f 66 20 63 64 | 20 77 69 6e 64 6f 77 20 |th of cd| window |
|00005d20| 2b 20 69 74 65 6d 20 31 | 20 6f 66 20 74 68 65 53 |+ item 1| of theS|
|00005d30| 63 72 6f 6c 6c 20 2d 20 | 31 34 0d 73 65 74 20 6c |croll - |14.set l|
|00005d40| 65 66 74 20 6f 66 20 63 | 64 20 66 6c 64 20 22 63 |eft of c|d fld "c|
|00005d50| 6f 6e 74 72 6f 6c 73 22 | 20 74 6f 20 2d 31 0d 0d |ontrols"| to -1..|
|00005d60| 73 65 74 20 74 68 65 20 | 62 6f 74 74 6f 6d 20 6f |set the |bottom o|
|00005d70| 66 20 63 64 20 62 74 6e | 20 22 72 65 73 69 7a 65 |f cd btn| "resize|
|00005d80| 22 20 74 6f 20 74 68 65 | 20 62 6f 74 74 6f 6d 20 |" to the| bottom |
|00005d90| 6f 66 20 63 64 20 66 6c | 64 20 22 63 6f 6e 74 72 |of cd fl|d "contr|
|00005da0| 6f 6c 73 22 20 2d 20 31 | 0d 73 65 74 20 74 68 65 |ols" - 1|.set the|
|00005db0| 20 6c 65 66 74 20 6f 66 | 20 63 64 20 62 74 6e 20 | left of| cd btn |
|00005dc0| 22 72 65 73 69 7a 65 22 | 20 74 6f 20 74 68 65 20 |"resize"| to the |
|00005dd0| 72 69 67 68 74 20 6f 66 | 20 63 64 20 66 6c 64 20 |right of| cd fld |
|00005de0| 22 63 6f 6e 74 72 6f 6c | 73 22 20 2d 20 31 0d 73 |"control|s" - 1.s|
|00005df0| 68 6f 77 20 63 64 20 62 | 74 6e 20 72 65 73 69 7a |how cd b|tn resiz|
|00005e00| 65 0d 73 68 6f 77 20 63 | 64 20 66 6c 64 20 22 63 |e.show c|d fld "c|
|00005e10| 6f 6e 74 72 6f 6c 73 22 | 0d 65 6e 64 20 69 66 0d |ontrols"|.end if.|
|00005e20| 65 6e 64 20 72 65 73 69 | 7a 65 53 70 65 63 69 61 |end resi|zeSpecia|
|00005e30| 6c 0d 0d 6f 6e 20 73 65 | 74 70 69 63 74 75 72 65 |l..on se|tpicture|
|00005e40| 4d 6f 64 65 0d 67 6c 6f | 62 61 6c 20 44 50 70 69 |Mode.glo|bal DPpi|
|00005e50| 63 74 75 72 65 4d 6f 64 | 65 0d 67 65 74 20 6e 6f |ctureMod|e.get no|
|00005e60| 74 20 74 68 65 20 63 68 | 65 63 6b 6d 61 72 6b 20 |t the ch|eckmark |
|00005e70| 6f 66 20 6d 65 6e 75 49 | 74 65 6d 20 22 41 6c 77 |of menuI|tem "Alw|
|00005e80| 61 79 73 20 53 68 6f 77 | 20 4d 61 67 61 7a 69 6e |ays Show| Magazin|
|00005e90| 65 20 50 61 67 65 73 22 | 20 6f 66 20 6d 65 6e 75 |e Pages"| of menu|
|00005ea0| 20 22 76 69 65 77 22 0d | 73 65 74 20 74 68 65 20 | "view".|set the |
|00005eb0| 63 68 65 63 6b 6d 61 72 | 6b 20 6f 66 20 6d 65 6e |checkmar|k of men|
|00005ec0| 75 69 74 65 6d 20 22 41 | 6c 77 61 79 73 20 53 68 |uitem "A|lways Sh|
|00005ed0| 6f 77 20 4d 61 67 61 7a | 69 6e 65 20 50 61 67 65 |ow Magaz|ine Page|
|00005ee0| 73 22 20 6f 66 20 6d 65 | 6e 75 20 22 76 69 65 77 |s" of me|nu "view|
|00005ef0| 22 20 74 6f 20 69 74 0d | 70 75 74 20 69 74 20 69 |" to it.|put it i|
|00005f00| 6e 74 6f 20 44 50 70 69 | 63 74 75 72 65 4d 6f 64 |nto DPpi|ctureMod|
|00005f10| 65 0d 69 66 20 44 50 70 | 69 63 74 75 72 65 4d 6f |e.if DPp|ictureMo|
|00005f20| 64 65 20 3d 20 22 74 72 | 75 65 22 20 74 68 65 6e |de = "tr|ue" then|
|00005f30| 20 73 68 6f 77 50 69 63 | 74 75 72 65 0d 65 6c 73 | showPic|ture.els|
|00005f40| 65 20 63 6c 6f 73 65 20 | 77 69 6e 64 6f 77 20 28 |e close |window (|
|00005f50| 22 70 61 67 65 22 20 26 | 26 20 77 6f 72 64 20 31 |"page" &|& word 1|
|00005f60| 20 6f 66 20 62 67 20 66 | 6c 64 20 22 70 61 67 65 | of bg f|ld "page|
|00005f70| 4e 75 6d 62 65 72 22 29 | 0d 65 6e 64 20 73 65 74 |Number")|.end set|
|00005f80| 50 69 63 74 75 72 65 4d | 6f 64 65 0d 0d 6f 6e 20 |PictureM|ode..on |
|00005f90| 67 6f 54 68 69 73 54 4f | 43 0d 73 65 74 20 63 75 |goThisTO|C.set cu|
|00005fa0| 72 73 6f 72 20 74 6f 20 | 77 61 74 63 68 0d 67 6f |rsor to |watch.go|
|00005fb0| 20 63 64 20 33 0d 75 6e | 6c 6f 63 6b 20 73 63 72 | cd 3.un|lock scr|
|00005fc0| 65 65 6e 20 77 69 74 68 | 20 76 69 73 75 61 6c 20 |een with| visual |
|00005fd0| 69 72 69 73 20 63 6c 6f | 73 65 0d 65 6e 64 20 67 |iris clo|se.end g|
|00005fe0| 6f 54 68 69 73 54 4f 43 | 0d 0d 6f 6e 20 49 53 53 |oThisTOC|..on ISS|
|00005ff0| 55 45 6c 6f 63 61 6c 4d | 65 6e 75 73 0d 69 66 20 |UElocalM|enus.if |
|00006000| 74 68 65 72 65 20 69 73 | 20 61 20 6d 65 6e 75 69 |there is| a menui|
|00006010| 74 65 6d 20 22 67 6f 20 | 74 6f 20 69 73 73 75 65 |tem "go |to issue|
|00006020| 2e 2e 2e 22 20 69 6e 20 | 6d 65 6e 75 20 22 67 6f |..." in |menu "go|
|00006030| 22 20 74 68 65 6e 0d 73 | 65 74 20 65 6e 61 62 6c |" then.s|et enabl|
|00006040| 65 64 20 6f 66 20 6d 65 | 6e 75 20 22 65 64 69 74 |ed of me|nu "edit|
|00006050| 22 20 74 6f 20 74 72 75 | 65 0d 73 65 74 20 65 6e |" to tru|e.set en|
|00006060| 61 62 6c 65 64 20 6f 66 | 20 6d 65 6e 75 69 74 65 |abled of| menuite|
|00006070| 6d 20 22 55 6e 6c 6f 63 | 6b 20 54 65 78 74 22 20 |m "Unloc|k Text" |
|00006080| 6f 66 20 6d 65 6e 75 20 | 22 45 64 69 74 22 20 74 |of menu |"Edit" t|
|00006090| 6f 20 74 72 75 65 0d 73 | 65 74 20 65 6e 61 62 6c |o true.s|et enabl|
|000060a0| 65 64 20 6f 66 20 6d 65 | 6e 75 20 22 67 6f 22 20 |ed of me|nu "go" |
|000060b0| 74 6f 20 74 72 75 65 0d | 73 65 74 20 65 6e 61 62 |to true.|set enab|
|000060c0| 6c 65 64 20 6f 66 20 6d | 65 6e 75 69 74 65 6d 20 |led of m|enuitem |
|000060d0| 22 54 4f 43 20 28 74 68 | 69 73 20 49 73 73 75 65 |"TOC (th|is Issue|
|000060e0| 29 22 20 6f 66 20 6d 65 | 6e 75 20 22 67 6f 22 20 |)" of me|nu "go" |
|000060f0| 74 6f 20 74 72 75 65 0d | 73 65 74 20 65 6e 61 62 |to true.|set enab|
|00006100| 6c 65 64 20 6f 66 20 6d | 65 6e 75 69 74 65 6d 20 |led of m|enuitem |
|00006110| 22 50 72 65 76 20 53 65 | 63 74 69 6f 6e 22 20 6f |"Prev Se|ction" o|
|00006120| 66 20 6d 65 6e 75 20 22 | 67 6f 22 20 74 6f 20 74 |f menu "|go" to t|
|00006130| 72 75 65 0d 73 65 74 20 | 65 6e 61 62 6c 65 64 20 |rue.set |enabled |
|00006140| 6f 66 20 6d 65 6e 75 69 | 74 65 6d 20 22 4e 65 78 |of menui|tem "Nex|
|00006150| 74 20 53 65 63 74 69 6f | 6e 22 20 6f 66 20 6d 65 |t Sectio|n" of me|
|00006160| 6e 75 20 22 67 6f 22 20 | 74 6f 20 74 72 75 65 0d |nu "go" |to true.|
|00006170| 73 65 74 20 65 6e 61 62 | 6c 65 64 20 6f 66 20 6d |set enab|led of m|
|00006180| 65 6e 75 69 74 65 6d 20 | 22 46 69 72 73 74 22 20 |enuitem |"First" |
|00006190| 6f 66 20 6d 65 6e 75 20 | 22 67 6f 22 20 74 6f 20 |of menu |"go" to |
|000061a0| 74 72 75 65 0d 73 65 74 | 20 65 6e 61 62 6c 65 64 |true.set| enabled|
|000061b0| 20 6f 66 20 6d 65 6e 75 | 69 74 65 6d 20 22 4c 61 | of menu|item "La|
|000061c0| 73 74 22 20 6f 66 20 6d | 65 6e 75 20 22 67 6f 22 |st" of m|enu "go"|
|000061d0| 20 74 6f 20 74 72 75 65 | 0d 73 65 74 20 65 6e 61 | to true|.set ena|
|000061e0| 62 6c 65 64 20 6f 66 20 | 6d 65 6e 75 69 74 65 6d |bled of |menuitem|
|000061f0| 20 22 4e 65 78 74 22 20 | 6f 66 20 6d 65 6e 75 20 | "Next" |of menu |
|00006200| 22 67 6f 22 20 74 6f 20 | 74 72 75 65 0d 73 65 74 |"go" to |true.set|
|00006210| 20 65 6e 61 62 6c 65 64 | 20 6f 66 20 6d 65 6e 75 | enabled| of menu|
|00006220| 69 74 65 6d 20 22 50 72 | 65 76 22 20 6f 66 20 6d |item "Pr|ev" of m|
|00006230| 65 6e 75 20 22 67 6f 22 | 20 74 6f 20 74 72 75 65 |enu "go"| to true|
|00006240| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 49 53 53 55 |.end if.|end ISSU|
|00006250| 45 6c 6f 63 61 6c 4d 65 | 6e 75 73 0d 0d 6f 6e 20 |ElocalMe|nus..on |
|00006260| 73 65 74 54 65 78 74 4c | 6f 63 6b 20 68 6f 77 0d |setTextL|ock how.|
|00006270| 67 6c 6f 62 61 6c 20 44 | 50 74 65 78 74 4c 6f 63 |global D|PtextLoc|
|00006280| 6b 0d 69 66 20 68 6f 77 | 20 3d 20 22 74 6f 67 67 |k.if how| = "togg|
|00006290| 6c 65 22 20 74 68 65 6e | 20 70 75 74 20 74 68 65 |le" then| put the|
|000062a0| 20 63 68 65 63 6b 4d 61 | 72 6b 20 6f 66 20 6d 65 | checkMa|rk of me|
|000062b0| 6e 75 69 74 65 6d 20 22 | 55 6e 6c 6f 63 6b 20 54 |nuitem "|Unlock T|
|000062c0| 65 78 74 22 20 6f 66 20 | 6d 65 6e 75 20 22 45 64 |ext" of |menu "Ed|
|000062d0| 69 74 22 20 69 6e 74 6f | 20 68 6f 77 0d 69 66 20 |it" into| how.if |
|000062e0| 68 6f 77 20 3d 20 22 22 | 20 74 68 65 6e 0d 67 65 |how = ""| then.ge|
|000062f0| 74 20 28 74 68 65 20 69 | 63 6f 6e 20 6f 66 20 62 |t (the i|con of b|
|00006300| 67 20 62 74 6e 20 22 6c | 6f 63 6b 22 20 3d 20 38 |g btn "l|ock" = 8|
|00006310| 37 36 38 29 0d 69 66 20 | 74 68 65 72 65 20 69 73 |768).if |there is|
|00006320| 20 61 20 6d 65 6e 75 69 | 74 65 6d 20 22 55 6e 6c | a menui|tem "Unl|
|00006330| 6f 63 6b 20 54 65 78 74 | 22 20 6f 66 20 6d 65 6e |ock Text|" of men|
|00006340| 75 20 22 45 64 69 74 22 | 20 74 68 65 6e 20 c2 0d |u "Edit"| then ..|
|00006350| 73 65 74 20 63 68 65 63 | 6b 6d 61 72 6b 20 6f 66 |set chec|kmark of|
|00006360| 20 6d 65 6e 75 69 74 65 | 6d 20 22 55 6e 6c 6f 63 | menuite|m "Unloc|
|00006370| 6b 20 54 65 78 74 22 20 | 6f 66 20 6d 65 6e 75 20 |k Text" |of menu |
|00006380| 22 45 64 69 74 22 20 74 | 6f 20 6e 6f 74 20 69 74 |"Edit" t|o not it|
|00006390| 0d 73 65 74 20 6c 6f 63 | 6b 74 65 78 74 20 6f 66 |.set loc|ktext of|
|000063a0| 20 66 6c 64 20 22 70 61 | 67 65 22 20 74 6f 20 69 | fld "pa|ge" to i|
|000063b0| 74 0d 65 6c 73 65 20 69 | 66 20 68 6f 77 20 3d 20 |t.else i|f how = |
|000063c0| 74 72 75 65 20 6f 72 20 | 68 6f 77 20 3d 20 66 61 |true or |how = fa|
|000063d0| 6c 73 65 20 74 68 65 6e | 0d 73 65 74 20 74 68 65 |lse then|.set the|
|000063e0| 20 69 63 6f 6e 20 6f 66 | 20 62 67 20 62 74 6e 20 | icon of| bg btn |
|000063f0| 22 6c 6f 63 6b 22 20 74 | 6f 20 28 22 6c 6f 63 6b |"lock" t|o ("lock|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.